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MODULE UTILITY 


oo 


TLE ‘Utility routines’ 
T= *"¥O4=000" 


ume 
ele 


BEGIN 


! 
eee eRAReRAARAAKAAHERAHHHHARHEKHKAKEH KERTH eK eee eeeKeHeReeeneeeneeeneeeeeeee 


:® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
i® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
:* ALL RIGHTS RESERVED. 


:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY B 
ONLY IN ACCORDANCE WITH THE TERMS OF 


COOooooco 
Ss 
UMPWN— 


ooo 
Se 


oO 
— 
ee ee ce ce ee ce ee ee ee ee ee ce ee ee ce ce ee ce ee ee ce ce ce ce ee ce ce ce ed ee ee ee cD ee ee ee ee ee ee ee ee ee ce ce ce ee ee ee ed eed 
- 


WN — SO OONOU EWN O OONOULS WOO 


E USED AND COPIED 
SUCH LICENSE AND WITH THE 
:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:# OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


a 
x 
® 
wt 
® 
ae 
& 
® 
® 
ie TRANSFERRED. * 
® 
® 
® 
® 
® 
e 
ee 
® 
® 
® 


folololq) 
2 


:® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
™ oePORAT ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
t* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


eee Ree RR RAAAARAAAERRAHHAAAAHAAAHHAAETEH HATA RERARARAARARAReAeeeeAeeeee ee 
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WWAPRINIMUNMININI NINN = 
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; ' FACILITY: 
3 Backup/Restore 
5 35 1 | ABSTRACT: 
; 44 § This module contains general utility routines. 
38 t+ ' ENVIRONMENT: 
39 003 : VAX/VMS user mode. 
40 0040 len 
41 0041 ! 
$¢ anes ' AUTHOR: M. Jack, CREATION DATE: 03-Sep-1980 
4 004 : 
44 0044 ' MODIFIED BY: 
45 0045 : 
46 0046 : v03-007 Lv0510 Larry Yetto ; 19=JUL-1984 08:48 
47 0047 : Add DECODE_DEVTYP routine to build an ASCII string from 
48 0048 : the DEVITYP in the physical volume attribute record. Increase 
$3 seb } DEVTYP from 1 to 4 bytes. 
51 0051 ! v03-006 LY0484 Larry Yetto 27-APR=1984 08:41 
2§ 3236 ! FTl QAR # 2088 = Add new routines to use to determine if 
2 bez a@ saveset is encrypted. 
55 boss ! v03-005 ACG0332 Andrew C. Goldstein, 22-Jun-1983 18:29 
28 6038 : Add file highwater mark and RMS journal flag attributes 
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14-Sep- BACKUP. SRC UTiLit 05530 1 
; 8 0058 1! v03-004 JEP0003 J. Eric Pollack, 23-Apr-1983 10:53 
; Fes S828 ! } Add support for encrypted savesets. 
; «61 0061 1 / v03-003 ACG0313 Andrew C. Goldstein, 12-Feb-1983 17:29 
; ? Ope ; } Add routine subtitles 
i 64 0064 1 } VO3-002 LMP0044 L. Mark Pilant, g1-Oct-1982 15:20 
; 9? BRe2 : Add support for saving and restoring ACL's 
: 67 nits4 2. 2 v03-001 ACG0280 Andrew C. Goldstein, 22-Apr-1982 16:45 
; os pees ; } Include dot on save set name with null type 
: 70 0070 1! v02-010 MLJ0081 in L. Jack, 26-Feb-1982 15:21 
ca ae 0071 1! Add gh tye med aRETALNAAX attributes to support new home 
: y bo) : } block fields. 
; 0074 1! v02=009 MLJ0075 Jack, 28-Jan-1982 20:08 
eo) 0075 1! ace DIR_VERLIM aval “venetian attributes to support version Limit 
ho BAL wins 
: 78 0078 1 | V02-008 MLJ0062 rtin L. Jack, 3-Dec-1981 12:1 
: ie 4 st ! } Add DIR_STATUS artrlauts to support CINCREMENTAL. 
: 81 0081 1: v02-007 MLJ0054 Martin L. Jack, 22-Nov-1981 21:32 
: Sg O08 : } Integrate GET_VM and FREE VM jacket routines. 
;  B4 0084 1 i V02-006 MLJ0047 Martin L. Jack, 25-Sep-1981 15:28 
i. oe 0085 1! Remove INVATTTYP message to allow restores 
; He] poe ; } with earlier versions. 
3; § 0088 1 | vO2-005 MLJ0036 Martin L. Jack, 28-Aug-1981 18:04 
3; «889 0089 1! Implement parent directory attributes. Make use of new NAM 
; : B000 ; block descriptors. 
; 9 0092 1: V02-004 MLJ0023 Martin L. Jack, 23-Apr-1981 11:42 
; a Boor : Implement placement attribute. 
. 0095 1: vO2-003 MLJ0014 Martin L. Jack, 6-Apr-1981 23:19 
: 38 Ooee : Correct and clerity VBN sequence-error messages 
: 98 0098 1! v02-002 MLJ0010 Martin L. Jack, 25-Mar-1981 15:50 
; WW 0099 1! Reorganize global storage. Add new attributes for image 
: 100 0100 1! restore. Convert to bitmap for attribute code checking. 
: Ha gig! : Add DEBLOCK parameter to inhibit freeing of buffer. 
: 103 O108 | i v02-001 MLJ0006 Martin L. Jack, 26-Feb-1981 17:37 
3 104 0104 1! Append filetype la EXTRACT FILENAME unless it is null 
: 105 0105 1! 
: 106 0106 1 !#« 
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Go Go Go G0 G0 00 60 GO ed Sd Sd wd dd RRR 


REQUIRE ‘SRC$: COMMON’; 
LIBRARY ‘SYSSLIBRARY:L1B"; 
REQUIRE ‘LIBS:BACKDEF'; 


L_P$= CALL: GLOBAL (P$=11); 


L_DECL= EXTERNAL REGISTER P$ = 11 2; 


FORWARD ROUTINE 


ET_VM, Allocate virtual memory 
GET ZERO_VM, 
FREE _VM: 


Allocate and zero virtual memory 


NOVALUE, Free virtual memory 
DEBLOCK: L_P$ NOVALUE, Deblock a save set buffer 
DEBLOCK_ATTR:  L_P$ NOVALUE, Deblock an attribute record 
FILE_ERROR: NOVALUE, Signal a file-related error 


F IND -BADBLOCK, 


Search the bad block table 
EXTRACT_F ILENAME : 


WN “OC OONOVUEWNR “ODONOUS WOO 
NAUEWN 9 OONAMUE WN" OOONOUS SW 


3 1 

5 WW 1 1 

; T 1 1 

; 1 1 

; 1 1 

3; 1 1 

s 11 1 1 

s 1 1 1 

s FF 1 1 

3; 1 1 

we. 1 1 

eb 1 1 

s 2 1 1 

ae 1 1 

s Ye 1 1 

3s t2 1 1 

s Ve 1 1 

3; 2 1 1 

; ve 1 1 

s te 1 1 

s Iz 1 1 

; \¢ 1 1 

<3 1 1 NOVALUE, ' Extract file name (and type, if not 
3 13 16 1 ! null) from string 

s 13 16 1 EXTRACT_DIR_FILENAME: 

. 33 16 1 NOVALUE, ! Extract givecvery. name, type, 
; 13 16 1 ! version from string 

3 35 1688 1 GET_ONE_ATTRIBUTE: 

: 136 1689 1 NOVALUE, ! Store one attribute value 

s 37 1690 1 GET_SUMMARY_ATTRIBUTES: ; 

s 138 1691 1 NOVALUE, ! Get BACKUP summary attributes 
; 139 1638 1 GET_VOLUME_ATTRIBUTES: 

3 140 1693 1 UE, ! Get volume summary attributes 
s 141 1694 1 GET_FILE_ATTRIBUTES: 

$ 166 1695 1 ALUE, ! Get file attributes 

3; «14 1696 1 GET_FILE_EXT_ATTRIBUTES: ; ‘ ; 
> «(144 1697 1 ALUE, ' Get file attributes from extension record 
: «#145 1698 1 GET_PHYSVOL_ATTRIBUTES: 

3 146 1699 1 NOVALUE, ' Get ‘tee volume attributes 
3 147 1700 1 CRYPTO_CHKSAV, ' Chec f saveset is enrypted 

3; 148 1701 1 SEARCHFOR_BSR_ENC: ! Scan records for backup summary 
3 149 1708 1 L_PS NOVALUE, ! and determine if saveset is encrypted 
; 150 1703 1 DECODE_DEVTYP : 

3 151 1704 1 NOVALUE ; ! Decode MEDIA_ID 

8 136 1705 1 

;s 15 fA 1 

s 154 1707 1 EXTERNAL ROUTINE 

3; ©6155 1708 1 BUFFER: NOVALUE ' Free an 1/0 buffer 

3; 156 1709 1 LIBSFREE_VM: ADDRESSING_MODE (GENERAL) 

: 157 1710 1 ' Free virtual memory 

s 158 1711 «1 LIBSGET_VM: ADDRESSING_MODE (GENERAL), t 

3; «6159 ig 1 ' Allocate virtual memory 

; 160 171 1 LIBSSIGNAL: ADDRESSING_MODE (GENERAL) ; ae: 

s 161 1714 (1 ! Signal a condition 

: 166 1715 #1 

: 16 1etg 1 ; 

3 «164 1717 4 GSDEFINE(); ! Define global common area 
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> 165 1718 1 
3 19% 1318 1 
: 16 1720 1 EXTERNAL LITERAL 
> 168 1721 1 BACKUP$_VBNERROR, 
: 169 17 2 1 BACKUPS _VBNMISSING, 
: 170 1703 1 BACKUP$_VBNPASTEOF , 
: 171 1704 1 BACKUP$_READBLOCK, 
3 1% 1725 1 BACKUP$_WRITEBLOCK, | 
: 17 1726 1 ACKUPS_VERIFYERR, | 
> 17% 1727 1 UP$~BADD TA | 
: 175 1728 1 BACKUP$_ SOF TRERRS, | 
: 126 1729 1 BACKUP$_SOF TWERRS, 
: 17 1730 1 BACKUPS_XORERRS, 
: 178 1731 1 BACKUPS_PHYSET 
> 179 173¢ 1 CKUP$"NONPHYSET, 
> 180 1733 1 BACKUP$_INVATTSTR, 
: 181 1734 1 BACKUPS_INVATTSIZ, | 
> 182 1735 1 BACKUPS_INVRECTYP, | 
> 183 1736 1 BACKUP$—INVRECSIZ, 
> 184 1737 1 BACKUP$_ALLOCMEM, 
> 185 1738 1 BACKUPS—FREEMEM; 
> 186 1739 1 
> 187 1740 1 | 


| 
| 
| 
| 
| 
| 
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v04=000 Attribute validation tables 1e=3e8= 1382 01:10:83 BACKUP. SRCIUTILITY.B32¢1 
>: 189 1741 1 &ZSBITL ‘Attribute validation tables’ 
: 10 17g : ; Define bitvectors of valid attribute codes for each attribute record type. 
: 19¢ 1744 1 MACRO “ 
: 19 M1745 1 EF INE _BITVECTOR_1[AJ= 
: 194 1746 1 CXNAME("BSASR_", A)] = TRUE %, 
: 195 1747 1 
: 196 1748 1 
: 197 M1749 1 DEFINE _BITVECTOR(A)= 
: 198 M1750 1 OWN A: 
: 199 M1751 1 BITVECTOR[BSASK_NUM_ATRS) 
; 200 1736 1 PSECT (CODE) 
: 201 1753 (1 PRESET (DEF INE_BITVECTOR_1(%REMAINING)) 2%; 
: 202 1754 1 
: 20 1755 1 
3 204 P 1756 1 DEFINE_BITVECTOR(MASK_BSR, 
> 205 P1757 1 NAME COMMAND, COMMENT, USERNAME , 
3 206 P1758 1 USERUIC DATE, PSYS SYSVER 
: 207 P1759 1 NODENAME R DRIVEID, BACKVER, 
> 208 P1760 1 BLOCKSIZE, XORSIZE BUFFERS VOLSETNAM, 
; 209 1761 1 NVOLS, BACKSIZE, BACKFILES, CRYPDATKEY); 
: 210 176¢ 1 
: 211 1763 1 
: 212 P 1764 1 DEFINE_BITVECTOR(MASK_VSR, 
> 213 P1765 1 VOLSTRUCT, VOLNAME, OWNERNAME, FORMAT, 
> 214 P1766 1 RVN, VOLOWNER, PROTECT, FILEPROT, 
> 215 P1767 1 RECPROT, VOLCHAR, VOLDATE, WINDOW 
: 216 P1768 1 LRU_LIM, EXTE CLUSTER, RESFILES, 
: 217 P1769 1 VOLSIZE, TOTSIZE, TOTFILES, MAXFILES, 
: 218 P1770 1 MAXF ILNUM, SERIALNUM, INDEXLBN, BOOTBLOCK, 
: 219 1771 «1 RETAINMIN, RETAINMAXS; 
: 220 1772 1 
: 221 1773 «(1 
: 222 P 1774 1 DEFINE_BITVECTOR(MASK_FAR 
> 223 P1775 1 FILENAME , STRUCLEV, FID, BACKLINK, 
> 226 P1776 1 FILESIZE, UIC, FPRO RPRO, 
: 225 P1777 1 ACLEVEL, UCHAR RECATTIR, REVISION, 
> 226 P1778 1 CREDATE, REVDATE, EXPDATE, BAKDATE, 
; $27 P1779 1 BOOTV PLACEMENT, DIR_UIC DIR_FPRO, 
: 228 P1780 1 DIR_STATUS, DIR_VERLIM, VERCIMIT, ACLSEGMENT, 
; 229 1781 1 HIGAWATER, JNL-FLAGS); 
: 230 1782 1 
3 231 1783 1 
; 33¢ P 1784 1 DEFINE_BITVECTOR(MASK_PVA 
; 23 P1785 1 SECTORS, TRACKS, CYLINDERS, MAXBLOCK, 
> 234 P1786 1 DEVTYP SERIAL, DEVNAM, LABEL, 
; 235 1787 1 BADBLOCK); 
: 236 1788 1 
: 237 1789 1! 
3; 238 1790 1 ! Module wide own storage 
> 239 1791 1 
: 240 1798 1 OWN 
+ 241 1793 1 SAVESET_ENCR : LONG ; 
> 262 1794 1 
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GLOBAL ROUTINE GET_VM(S] 


'e¢ 
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i FUNCTIONAL DESCRIPTION: 
This routine interfaces to LIBSGET_VM to allocate a block of virtual 
memory. 


INPUT PARAMETERS: 
SIZE 
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ZE)= 


Sa et 
NOU 


- Size in bytes of area. 


ISIS E~ S~ 


a) 


IMPLICIT INPUTS: 
NONE 


OUTPUT PARAMETERS: 
NONE 


MMPorNoTorororonororororfererorrnr 
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26 IMPLICIT QUTPUTS: 
NONE 


ROUTINE VALUE: 
Address of allocated area. 


SIDE EFFECTS: 
If allocation fails, a fatal error is signalled. 


STATUS, ' General status variable 
AREA; ! Pointer to allocated area 


STATUS = LIBSGET_VM(SIZE, AREA); 
I NOT STATUS TREN SIGNAL (BACKUP$_ALLOCMEM, 0, .STATUS); 
END 
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eTITLE UTILITY Utility routines 
~IDENT \Vv04-000\ 


-PSECT COMMON,NOEXE, OVR,2 
00000 GLOBAL_BASE: 
00000 FREE_LIST: 
00008 INPUT wait: 
00010 REREAD_WAIT: 
00018 OUTPUT WAIT: 
00020 JPI_UIC:.BLKB 
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00024 
00030 
00038 
00040 
00048 


0004C 
00050 


00058 
00098 
00008 
000E0 
OOOEC 
OOOEE 
000FO 
OO0F4 
000F8 
OOOFC 
00100 
00104 
00108 
0010C 
00110 
00116 
00117 
00118 
0011C 
OO11E 
00120 
00128 
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JPI_USERNAME : 
JPI DATE: 
JPI_NODE “DESC: 
JPI “CURPATY, 
SYI. VERSION: 


SYI_SID: *BLKB 
RWSV_HOLD_LIST: 


LK 
RWSV_ crcié: 
RWSV_AUTODIN: 
-BLKB 
RWSV_FILESET ID: 
-BLK 
RWSV_VOLUME ID: 
RWSV_VOL_NUMBER: 
“BLK 
RWSV_SEG_NUMBER: 
[BLK 
RWSV_FILE_NUMBER: 
RWSV_SAVE_QUAL: 
RWSV_SAVE FAB: 
RWSV_CHAN: 
~BLK 
RWSV_XOR_BCB: 
RWSV_IN_SEQ: 
RWSV_IN_ SEG 0: 
RUSV_IN_XOR SEQ: 
RWSV_IN KOR RFA: 
RWSV_LOOKAHEAD: 
RWSV -xoRs IE: 
RWSV_IN ~EROUP $I 
RWSV_IN_ERRORS: 
RWSV_IN_XORUSE 
RWSV_IN_ORGERR: 
RWSV_IN_VBN: 
-BLKB 
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vue 
| 0012C RUSV_IN_VBN, 0: 
| 00130 RWSV_ALLOC: 
| 00134 RWSV_EOF: 
“BLK 
00138 RuSv_oUT_sEd: 
0013¢ RWSV_OUT’ VEN: 
| 00140 RWwSV_OUT “BLOCK. COUNT: 
00144 RUSV_OUT_ERRORS 
00146 RUSV.SEG_ERRORS: 
00148 RWSV_OUT.GROUP_COUNT: 
00149 RWSV PADDING. 
.BLKB 


0014C QUAL: -BLKB 
001BC COM” SSNAME : 


001C4 COM_VALID TYPES: 
001C6 COM_FLAGS: 
001¢8 COm_PADDING: 
0019 COM _BUFF “COUNT: 
OO1CA COM 1_SETCOUNT: 
001¢B COM_O_SETCOUNT: 
001¢C COM_1_STRUCNAME : 
00108 COM_O_STRUCNAMF : 
001E4 COM_O_BSRDATE : 
OO1EC ALT -SSNARE: | 
0020C INPUT_FUNC: ie 
00200 INPUT RiP: 
0020E OUTPUT ~FUNC: 
0020F FAST _STRICLEY: 
00210 INPUT_BEG: 
00210 INPUT_CHAN: 
00214 INPUT_FLAGS' 
-BLKB 
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00216 INPUT PADDING: 
00218 INPUT_FAB: 

0021¢ INPUT_NAMCE 
00220 Input_ecBen 
00224 INPUT_QUAL: 
00228 INPUT BAD: 
0022¢ INPUT_BLOCK: 
00230 INPUT _MAXBLOCK: 
00234 INPUT pediA To: 
00238 INPUT ANAREDESC 
00240 INPUT -STATBLE: 
00248 INPUT_HDR BEG: 
00248 INPUT _CREDATE: 
00250 INPUT_REVDATE: 
00258 INPUT _EXPDATE: 
00260 INPUT -BAKDATE: 
00268 INPUT -F ILEOMNER: 
0026¢ INPUT _FILECHAR: 
00270 INPUT -REcATTR: 
00290 INPUT_HDR END : 
00290 INPUT_END: 

00290 Input PROC LIST: 
00294 INPUT_PLACEMENT : 
0029¢ INPUT_VBN List: 
002A4 INPUT_PLACE LEN: 
002A6 INPUT_PADDING 2: 
0028 oureut BiG: 
002A8 OUTPUT_CHAN: 
OO02AC output FLAGS. 
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OO2AE OUTPUT _PADD ING: 
00280 ouTPUT -Fi8:" 
00284 OUTPUT_NAM: 
00288 OUTPUT “pibee 
0028C¢ OUTPUT -oiAt: 
002C0 OUTPUT_BAD: ie 
002¢4 OUTPUT si gtk: 
002C8 OUTPUT NiyBLOCK: 
002cC OUTPUT DE VGEOM: 
00204 OUTPUT_ATTBUF : 
00364 OUTPUT “eis 
00364 LIST ~rovf ites: 
00368 LIST -TOTSIZE: 
0036C VERIFY_FAB: 
00370 VERIFY -u8E COUNT; 
00374 VERIFY AVAL : 
00378 COMPARE ACB 
0037C FAST_BUFFER: 
00380 FAST “purienh eizes 
00384 FAST_RVN: 7 
00385 FAST “panbanee 
00386 DIR _ventinite 
00388 FAST_VOL_BEG: 
00388 FAST_IMAP Size: 
0038C FAST_IMAP: 
00390 FAST_HDR “OFF Ser: 
00394 FAST_BOOT LBN: 
00398 FAST_VOL “END: 
TBLKB 
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00398 
0039C 
003A0 
003A4 
003A8 
OO3AC 
OO3AE 


LK 
00380 JOUR_ STRUCT LEV: 


00382 
00383 
00384 
00386 
00388 
0038C 
0030 
003¢4 
0038 


Q03CC 
003cC 


00300 
00304 


00308 
0030 
0038 
0039 
OO3EA 
003EB 
OO3EC 
0052c 
00790 


a M1509 


JOUR_BUFFER: 


JOUR _HIBLK : 
JOUR_EFBLK: 5 
JOUR_INBLK : ie 
JOUR _FFBYTE: 

JOUR_INBY Es 


L 
JOUR_ COUNT: 
JOUR _REVERSE: 
JOUR_EXS2: 
~BLK 
JOUR_PADDING: 


CHKPT_HIGH SP: 


CHKPT Low ra 
CHKPT STACK: 
LK 
CHKPT VARS: 
CHKPT _stATUs: 


-BLKB 
DIR_NAM: -BLKB 
DIR-DEV_DESC: 


KB 
DIR_SEL_DIR: 
DIR_SEL_NTV: 
DIR_STRUCLEV: 
DIR LEVELS: 
DIR_FLAGS: 
DIR_STATUS: 
LK 

DIR_STRING: 

-BLK 
DIR_STACK: 

-BLK 
DIR_SP: :BLKB 


- -—- =—- — @© wo fr FH OF fF F FF FN NY | HSH NN NK FSF FF HF HF S&S 


320 
612 
4 


AX-11 Bliss-32 V 
BACKUP.SRCJUTILI 


4.0 


tyoB 5201 


usu Utility routines 
GET_VM = allocate virtual memory 


18-Sep-1984 01:10:34 
00794 DIR_SEL_LATEST: P 


LK 
0798 DIR_END:.BLKB 0 
80798 DIR area i 


-BLK 
007B8C INPUT Atl: 
007CO OUTPUT_MIL: 

BLK 
007¢4 CURRENT ATL: 
007¢8 CURRENT_VCB: 
007¢cc CURRENT WCB: 
00700 ACL_FIB_DESCR: 


8 
00708 ACL_FIB: -BLKB 
00818 ACLILENGTH 


0081¢ oa aunt 
00820 CRYP_IN_CONTEXT: 
00824 cRYP_oU_CONTEXT: 
00828 CRYP_DA_CONTEXT 
0082C. CRYP_DATA_ENCIV: 
00834 CRYP_DATA CODE: 
00838 CRYP_ DATA KEY: 
00840 CRYP_DATA 1V: 
00848 CRYP_DATA CKSM: 
-BLKB 


AX-11 Bliss-32 V4.0-742 
BACKUP. Src uTiult -B32;1 


= 


- @oomort-onor F£& F&F F&F F&F OO fF fF fF SF S&S 


-PSECT DATA,NOEXE,2 
00000 SAVESET_ENCR: 
-BLKB 


4 
-PSECT CODE .NOWRT,2 

OF FF FE 00000 MASK.BSR: 

vee oR i 

0005 -BLKB 

00# 0000C MASK.VSR: 
ae) 
30 09 E 2, 48 


ecasieaanepiniesenpies 


py ee gam 


z 415 
UTILITY Utility routines 6-Sep-1 1:10: AX-11 Bliss-32 V4.0-742 Pa 1 
Bites tt GET_VM’= allocate virtual memory 198e 94342 BACKUP. SRCIUTILITY.B32¢1 ri 


16 
14- 
7 
8 JFAR: 
BYTE OC5J : 
«BYTE 7"? 1, 3, -32, -49, 1 P) 
4 
B 
D 


01 CF €0 O3 FF FC p 
| 07 FC Q g 


~EXTRN rere BUFFER, LIBSFREE_VM 
R GET_VM, - biBssic GNAC 


-EXTRN BACKUP$~SOF TWERRS 

-EXTRN BACKUP$~XORERRS 

-EXTRN BACKUP$-PHYSET, BACKUPS_NONPHYSET 
-EXTRN BACKUPS INVATTSTR 


-EXTRN BACKUPS$_FREEMEM 
-ENTRY GET_VM, Save nothing : 1796 | 
SUB #4,~SP : 


04 


SIZE 
000000006 00 CALLS #2, LIBSGET_VM 
11 STATUS 


. $ 


000000006 


QOONIMOY N10 
MAMMOOMOMs 
OW foo "ONO 
Ooooooooooooo 
oOooooooooooo 
COoooooooooooo 
MN | |“ OOCeoeo 
COVIMNOe &— S NVINO 
v 
Cc 
nn 
= 
a 


000000006 9 


oo 


1$: MOVL 


Sere hone howe 


CLR =(SP) 3 
PUSHL BACKUPS ALL OCMEM : | 
CALLS #3, LIBSSIGNA : | 

AREA, RO ; 1833 | 


3; Routine Size: 41 bytes, Routine Base: CODE + 002F 


UTILITY Utility routine 14.82 p-19 1:10:21 AX-11 Bliss-32 V 4.05 742 Page 14 
v04 GET_ZERO. VM = allocate and zero virtual memory 12286 0=1 984 tH 2:69 BACKUP. SRC UTiLit Y.B32;1 . (5) 
> 286 1834 1 XZSBTTL "GET ZERO_VM = allocate and zero virtual memory’ 
: 285 : 5 ! GLOBAL ROUTINE GET_ZERO_VM(SIZE)= 
: £8 1 8 1 !4¢ 
3 8 1838 1! 
s 269 1839 1! PICT IW. DESCRIPTION: 
; 290 1840 1! This routine interfaces to LIBSGET_VM to allocate a block of virtual 
: 4 134) } memory and clears the allocated aréa. 
: 9 1828 1 ! INPUT PARAMETERS: 
3; 2946 1844 1! SIZE - Size in bytes of area. 
; 295 1845 1! 
3; eM 1846 1 ! IMPLICIT INPUTS: 
; 297 1847 1! NONE 
; 298 1848 1! 
3 99 1849 1 ! OUTPUT PARAMETERS: 
3; 200 1850 1! NONE 
3; 301 1851 1! 
; 1936 1 ! IMPLICIT OUTPUTS: 
; 3 1853 1! NONE 
; 304 1854 1! 
: 05 1855 1 ! ROUTINE VALUE: 
: 306 1856 1! Address of allocated area. 
; 307 1857 1! 
; 308 1858 1 ! SIDE EFFECTS: ; 
; 309 1859 1! If allocation fails, a fatal error is signalled. 
3: 510 1860 1! 
s mee 1861 1 !<- 
: aig 1896 1 
s 31 1863 2 BEGIN 
3; 314 1864 § LOCAL 
3s 315 1865 STATUS, ' General status variable 
; 316 1208 2 AREA; i Pointer to allocated area 
s Sy 186 
s Sif 1868 
s 319 1869 STATUS = LIBSGET_VM(SIZE, AREA 
: 320 1870 IF NOT .STATUS TREN SIGNAL (BACKUPS. ALLOCMEM, 0, .STATUS); 
s Sev 1871 CHSFILL(O, .SIZE, .AREA); 
3 $55 1378 AREA 
: 3e 1873 1 END; 
003 80008 ENTRY Get _ZERO_VM, Save R2,R3,R4,R5 : 1835 
5E 4 SUBL2 Me J 
E bb 0900 PUSHL 3: 1869 
06 =#OA F : PUSHAB i 3 
000000006 00 Fe OA CALLS : a as 1 _vM 3 | 
11 E 3) BLBS : 1870 
i) 14 SHL 3 
—E 04 oie CLAL = tsp) 3 
00000000G 8F ODD 1 PUSHL spACKuRs PLL OCRER i 
00000000G 00 3 «FB bse CALL . LIBSSIGN § 
04 Ac 00 6€ 00 oy 2c O58 1$ mMOoVC 4 . (SP), a, Size. @AREA : 1871 


l 


vb 


; Routine Size: 


Bet ek routine 
GET_ZERO_ 


49 bytes, 


VM - allocate and zero virtual memory ib-te 


F Be 80080 


Routine Base: CODE + 0058 


=eee7 1382 91:42:85 


AX-11 Bliss-3 
BACKUP. SRCJUTIL 


MOVL AREA, RO 
RET 


v4. 
ITY 


—s 


Cc 
o 
—_ 


UTILITY ity routines 
youro00 va 


- release virtual memory 


ZSBITL ‘FREE_VM = release 
GLOBAL ROUTINE FREE_VM(SI 


ee 
! 


FUNCTIONAL DESCRIPTION: 


14-Sep-1984 


val 
AREA): NOVALUE= 


virtual memory' 
Re 


memory. 
INPUT PARAMETERS: 
SIZE 
AREA 
IMPLICIT INPUTS: 
NONE 


VIFWN—OOONOW 


WANA 


- Size of allocated area. 
- Address of allocated area. 
OUTPUT. PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
NONE 


SIDE a tg 


WAWWAA 


DAMMIT & & 


BEGIN 
LOCAL 
STATUS; 


WA AAA 
SOOONOUES WN —OOONO 


o 


STATUS = LIBSFREE_VM(SIZE, AREA); 
i Wen «STATUS THEN SIGNAL (BACKUP$_FREEMEM, 0, .STATUS); 


Be Se Se Se Ge Se Se Fe Ge Ge Oe Gee Se Ge Se Ge Ge Fe Ge Gs Se Se Se Se Se Se Se Se Sees Se Se Sse Seesese 
Ive 
o > 
_ 
ce ce ce ce ce ee ec ee ce ce ee ce cD ce ee ce ee ee ce el ee ee cee ce ee ee ee ee ee ee ea | 


362 


0000 $0000 -ENTR 
08 AC OF OoOE PUSHAB 
04 AC 9F 0000 PUSHAB 
000000006 00 9¢ Fe 00008 CALLS 
11 E8 QO00F LBS 
50 DD 00012 PUSHL 
7E D4 00014 CLAL 
00000000G 8F DD 00016 PUSHL 
000000006 00 03 FB Bobes CALLS 
04 00023 1$: ET 
3; Routine Size: 36 bytes, Routine Base: CODE + 0089 


16 4 1984 01:10 
-Sep- : 
; orig? 


f deallocation fails, a fatal error is signalled. 


4 AX-11 Bliss-32 V4.0-742 
9 BACKUP. SRCJUTILITY.B32;1 


his routine interfaces to LIBSFREE_VM to free a block of virtual 


!' General status variable 


FREE_VM, Save nothing 
AREA 

pice 

#2, LIBSFREE_VM 
STATUS, 1$ 


-(SP) 
spACKUPS FREEMEM 
#3, LIBSSIGNAL 


15 
ity routines 1b-$6 -1984 01:10:21 AX-11 Bliss-32 V4.0-742 Page 17 
ock = deblock and free save set buffer 1 ~8ep-19 4 94:10:88 BACKUP. SRCJUTILITY.832;1 . (7) 
: 1 ZSBTTL ‘DEBLOCK = deblock and free save set buffer' 
; ; GLOBAL ROUTINE DEBLOCK(BCB,ROUT,NOFREE): L_PS NOVALUE= 
; i hed 
; 1 | FUNCTIONAL DESCRIPTION: 
$ 1! s routine deblocks a buffer, and then frees the buffer unless 
; : : inhibited. Validity checking of the size and type values is done. 
; 1 | INPUT PARAMETERS: 
5 1! BCB - Pointer to buffer control block. 
: : ROUT = Routine to be called with each record. 
; ; } NOF REE - True if buffer not to be freed (optional). 
: 1 | IMPLICIT INPUTS: 
3 : : NONE 
: 1 | OUTPUT PARAMETERS: 
: } : NONE 
; 1! IMPLICIT OUTPUTS: 
3 : NONE 
: 1! ROUTINE VALUE: 
3 ' : NONE 
: 1! SIDE EFFECTS: 
; ' } The buffer may be released. 
; 1 i-- 
; 1 
; 2 BEGIN 
5 2 MAP 
: § aon BCB REF BBLOCK; ! Pointer to buffer control block 
; 2 REC: REF BBLOCK, ! Pointer to record 
; 2 BUF : REF BBLOCK, ' Pointer to buffer header 
3 LIMIT; ' Limit address of buffer 
3 BUILTIN 
3 ACTUALCOUNT; 
; L_DECL; 
; 2 
; ! Initialize. 
: BUF = .BCBCBCB_BUFFER; 
> 410 LIMIT = .BUF +~.BCBLBCB SIZE); 
: : REC = .BUF + BBHS$C_LENGTH; 
; $ : Loop over all records in the buffer. 
: 416 WHILE .REC LEQA .LIMIT - BRHSC_LENGTH DO 
: 7? BEGIN 
: 8 LOCAL . ; 
. % RLIMJT; ' Limit address of this record 
5 0 968 3 


M15 
UTILITY Utility routines 16-Sep-1984 01:10:21 AX-11 Bliss-32 V4.0-742 
Votbo0 DEBLOCK - deblock and free save set buffer 12-Sep-19 4 9153038 BACKUP. SRCJUTILITY .B3251 
> 421 1969 
3 : é 1379 } Compute address of following byte and check that it is within the buffer. 
>; 426 1306 RLIMIT = .REC + .RECCBRHSW_RSIZE] + BRHSC_LENGTH; 
> 425 197 IF_ .RLIMIT GTRA .LIMIT 
: 426 1974 THEN 
> 427 1975 4 BEGIN 
> 428 1976 4 SIGNAL (BACKUP$_INVRECSIZ); 
; 429 1977 4 EXITLOOP; 
> 430 1978 END; 
; 431 1979 
: C38 1980 7 : ; 
3; 46 1981 : Check record type. Ensure that it is a valid type, and if it is, ensure 
; 434 1OR8 ' that it is valid for the type of operation (physical or non-physical) 
; 435 1983 3 ! that is in progress. 
; 436 1984 3 : 
; 437 1985 3 IF .RECCBRHSW_RTYPE) GTRU BRHSK_FILE_EXT 
; 438 1986 ; T 
>; 439 1987 SIGNAL (BACKUP$_INVRECTYP) 
: 440 1988 3 SE 
: 441 1989 4 BEGIN 
> 442 1990 4 IF NOT .COM_VALID_TYPESC.RECCBRHSW_RTYPEJ) 
: 443 1991 4 THEN 
3 4446 1992 4 IF .QUALCQUAL_PHYS] 
3; 445 1993 4 THEN SIGNAL (BACKUP$_NONPHYSET) 
> 446 1994 4 ELSE SIGNAL (BACKUP$_PHYSET); 
3; 447 1995 4 
: 448 1996 4 . 
> 449 1997 4 ! Check record size. If a data record, the size must be a multiple of 
; 450 1998 4 ; bytes. Otherwise, it must be a multiple of 16 bytes. If al 
3; 451 1999 4 ! tests are passed, call the action routine to process the record. 
; 452 2000 4 : 
; 453 2001 4 IF 
: 454 344 5 BEGIN 
3; 455 2003 5 F 
3; 456 2004 6 (.RECCBRHSW_RTYPE] EQL BRHSK_VBN OR 
; 457 2005 6 -RECCBRH$SW_RTYPE] EQL BRHSK_LBN) 
; 458 $008 5 EN 
3 459 007 5 . (RECCBRHSW_RSIZE)<0,9> NEQ 0 
: 460 a4: 5 
: 461 009 5 - (RECCBRHSW_RSIZE])<0,4> NEQ 0 
; 462 2010 5 
3; 463 2011 4 EN 
: 464 sols 4 SIGNAL (BACKUP$_INVRECSI1Z) 
3; 465 013 4 
: 466 sole 4 (,ROUT)(.REC, .BCB); 
; 467 015 ND; 
; 468 2016 
: 469 2017 
3; 470 018 ! Advance to next record. 
3; 471 019 : 
3; 47 020 REC = .RLIMIT; 
: 47 bs! END; 
: 474 0 § 
3 475 85 
: 476 024 ! If warranted, free the buffer. 
: 677 2025 ! 


| N 15 
UTILITY Utility routines 16-Sep-1984 01:10:21 AX-11 Bliss-32 V4.0-742 
voueoo0 DEBLOCK = deblock and free save set buffer 12-80 8- 1382 9135058 BACKUP.SRCJUTILITY.832;1 
: 478 0 $ IF 
3; 479 0 -BCBCBCB_STATE] NEQ BCB_S_ WRITE AND 
: ret 8 3 . wnt (IF ACTUALCOUNT() LSSO 3 THEN FALSE ELSE .NOFREE) 
: 48 20 0 $ FREE_BUFFER(.BCB); 
; 48 031 END; 


O1FC 00000 eENTRY DEBLOCK, Save R2,R3,R4,R5,R6,R7,R8 
58 000000006 8F D0 00002 MOVL  #BACKUP$_INVRECSIZ, R8 
57 000000006 00 9€ 00009 MOVAB LIBS$SIGNAL, R7 
54 04 AC DO 00010 MOVL CB, R4 
32 OC A& DO 00014 MOVL 12(R4), BUF 
& 08 Ad 3C 00018 MOVZWL 8(R4), LIMIT 
53 52 CO 0001C ADDL2 BUF CIMIT 
52 0100 Ce 5E O001F MOVAB 2 (Re), REC 
56 FO AS 9E 00024 MOVAB -16(R3), R6 
56 52 D1 00028 1$: CMPL REC. R6 
71 1A 00028 BGTRU 13$ 
50 62 3¢ 00020 MOVZWL (REC), RO 
55 10 A042 9E 00030 OVAB 16(ROSCREC], RLIMIT 
53 55 01 00035 CMPL LIMIT, LIMIT 
07 18 00038 BLEQU 2$ 
58 DD 0003A PUSHL RB 
67 01 FB 0003Cc CALLS #1, LIBSSIGNAL 
5D 11 0003F BRB 13$ 
08 02 A2 B61 00041 2s: CMPW g<REC), #8 
08 1B 00045 BLEQU 3$ 
000000006 a DD 00047 PUSHL  #BACKUP$_INVRECTYP 
F 11 0004D BRB 10$ 
50 02 A2 3C OO04F 3$ MOVZWL 2(REC), RO 
19 00000000' EF 50 £0 00053 BBS RO, COM VALID_TYPES, 6$ 
08 00000000" EF 05 €1 00058 BBC #5. QUAL+12, 
00000000G 8F DD 000635 PUSHL #BACKUPS$_NONPHY SET 
06 11 00069 BRB 
000000006 8F oD 00068 4$: PUSHL #BACKUP$_PHYSET 
67 01 FB 00071 5$: CALLS #1, LIBSSIGNAL 
04 02 A2 Bi 00074 6$: CMPW g(REC), TA 
06 13 90078 BEQL 4 
06 02 ag B1 0007A CMPW (REC), #6 
0 if O07 BNEQ $ 
O1FF SF ¢ B 80 7$: BITW (REC), #511 
03 11 00085 BRB 9$ 
OF 62 3 0087 8$: BITB (REC), #15 
07 13 OO08A 9$: BEQL 11$ 
58 DD 0008C PUSHL R8 
67 01 Fe OO8E 10$: CALLS #1, LIBSSIGNAL 
06 11 0009 BRB 12$ 
i oe 14 88 0095 11$ PUSHR HMR? RG? 
BS 9 BD $098 12$:  MOVL LIMIT, REC 
BA 11 0009C BRB 1 
02 OA Ad 91 Hi 13$:  CMPB  10(R4), #2 
12 13 000 BEQL si 


16 
UTILITY Utility routines 16-Sep-1986 01:10:21 -YAX=11_BLiss-32 v4.0-742 Page 20 
00 DEBLOCK ~ ep :§ cj met 


v04- = deblock and free save set buffer 14-Sep-1984 11:54 CBACKUP.SRCJUTILITY.832;1 
03 6C 91 000A CMPB (AP), #3 : 2028 
04 1F OQO0A7 BLSSU _14$ : 
09 OC AC €E8 OOO0A9 BLBS NOFREE, 15$ 3 
54 DD OOOAD 148% PUSHL R4 : 2030 
000000006 00 01 FB OOOAF CALLS #1, FREE_BUFFER 3 
04 00086 15$: RET : 2031 


; Routine Size: 183 bytes, Routine Base: CODE + OOAD 
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wr 


oo 


TPOMONMOPOPS POPU Po Pofononononononononononononononornoronapofprororonrrrnrnn oOo 


Pw Teele al esl el eal al eal wah ak sh ak sh ak eh ak al al Pal Sal eal Sal eal al eal eal eal eal 
Pow ae ie ie ie ie ie ie iw wie) 
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uw 
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oo 
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routines 1h-Sep-19 4 91 9:8) 
-ATTR = deblock and validate attribute r 14-Sep-1984 4:09 


71 
1:5 
ZSBTTL ‘DEBLOCK_ATTR = deblock and validate attribute record’ 
GLOBAL ROUTINE DEBLOCK_ATTR(REC,MASK,ROUT): L_P$ NOVALUE= 


' 44 
' 
FUNCTIONAL DESCRIPTION: ; 
his routine deblocks an attribute record. Validity checking of the 
size and type values is done. 


INPUT PARAMETERS: 
REC 


ere h Bliss-32 V4.0-742 
BACKUP.SRCJUTILITY.832;1 


- Pointer to attribute record. 


MASK - Pointer to bitvector of valid attribute codes, 
or zero to consider all defined codes valid. 
ROUT - Routine to be called with each attribute. 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
NONE 


ass 
REC: REF BBLOCK ! Pointer to record 
ee. MASK: REF BITVECTOR: | Pointer to bit mask 
TT: REF BBLOCK, ! Pointer to attribute 
LIMIT; ' Limit address of record 
L_DECL; 
: Initialize. 


ATT = .REC + BRHSC LENGTH; 

LIMIT = .ATT + .RECCBRHSW_RSIZE); 

: Check the structure level. 

If -ATTCBSASW, STRUCLEV] NEQ BBHSK_LEVEL1 THEN SIGNAL (BACKUPS$_INVATTSTR); 
= + + e 

Loop over all attribute entries within the record. 

WHILE .ATT LEQA .LIMIT = BSASC_LENGTH DO 


Yous000 


D 16 
Utility routines 16-Sep-1984 01:10:21 AX-11 Bliss-32 v4.0-742 Page 22 
DEBLOCKATIR = deblock and validate attribute r ate eat 2 EBACKUP. SRe UTILITY.832;1 . (&3 
; & 089 BEGIN 
> 94 090 LOCAL 
13 544 991 ALIMIT; ! Limit address of this attribute 
1 5 
ie 
3 suf 034 } Compute address of following byte and check that it is within the record. 
; 549 038 ALIMIT = ,ATT + .ATTCBSASW_SIZE] + BSASC_LENGTH; 
F 50 09 IF .ALIMIT GTRA .LIMI 
gs 39) 098 THEN 
3 226 099 4 BEGIN 
$ 22 199 4 SIGNAL (BACKUPS_INVATTSIZ); 
; 54 101 4 EXITLOOP; 
s $55 106 : 
; 30 10 
s $37 104 
>; 558 105 ! If the type code is zero, exit the loop. 
; 559 106 ’ 
; 560 107 IF .ATTCBSASW_TYPE) EQL 0 
s el 108 THEN 
: 206 109 EXITLOOP; 
; 3 110 
; 564 2111 
; 565 sil¢ !' Ensure that the attribute code is a valid code. If it is, ensure that it 
: 5366 211 ! is valid for this type of attribute record. If all tests are passed, 
; 567 2114 ' call the action routine to process the attribute. 
; 568 2115 ‘ 
; 569 2116 IF 
; 570 2117 & BEGIN 
s S71 2118 4 If .ATTCBSASW_TYPE] GEQU BSASK_NUM_ATRS 
; 378 2119 & THEN 
o. Sr 2120 4 FALSE 
; 576 2121 4 ELSE 
3 $75 $i$¢ 4 IF .MASK EQL 0 
s S76 2123 4 THEN 
s Se 2124 & TRUE 
; 578 $1$2 4 ELSE 
3; 579 126 4 -MASKC .ATTCBSASW_TYPE]] 
: 580 $152 4 END 
: 581 128 ; THEN 
; 286 2129 (.ROUT)(.ATT); 
s 38 2130 
: 584 131 ; 
; 585 1 § ! Advance to next attribute entry. 
; 586 1 ! 
s 387 134 ATT = .ALIMIT; 
; 588 135 2 END; 
; 589 136 1 END; 
007C 00000 -ENTRY DEBLOCK_ATTR, Save R2,R5,R4,R5,R6 : 2033 
56 00000000G 00 9€& 00002 MOV LIBSSIGRAL, R6 Z 
53 A 10 ¢1 00009 ADDL3 #16, REC, ATT > 2076 
5 04 BC 3C 0000E MOV2WL a@REC, LIMIT > 2077 


roe 


een ta V4.0-742 
BACKUP. SRCJUTILITY.B32;1 


til y routines 
EBLOCK_ATTR = deblock and validate attribute r 
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107 bytes, Routine Base: CODE + 0164 


; Routine Size: 
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o 
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F 16 
x routines 16-Sep-1984 91:10:28) AX-11 Bliss-32 
ROR = output file related error message 14-Sep-1984 11:54:09 BACKUP.SRCJUTI 


ZSBTTL ‘FILE ERROR - output file related error message’ 
GLOBAL ROUTINE FILE_ERROR (MESSAGE ,FAB,EXTRA1,EXTRA2): NOVALUE= 


'e4 


' 
FUNCTIONAL DESCRIPTION: 
This routine signals a file-related message. 


INPUT PARAMETERS: 
MESSAGE 


eal: 


mee 


L 


- Message code for first message : 

- Pointer to file context area, from which file name 
__, Will be obtained : 

Up to two additional input parameters are additional messages -- 
except that if the message is one of the special cases, they are 
additional FAO arguments. 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 


SIDE EFFECTS: ‘ 
The messages are signalled. 


Oe ee 


BEGIN 
MAP : 
REF BBLOCK; ! Pointer to FAB 
LOCAL 
: REF BBLOCK, ! Pointer to NAM block 
DESC: VECTOR(C2), ! Descriptor for file name 
: VECTORL6]; ! Signal parameter List 


PARAM 
BUILTIN 

ACTUALCOUNT, 

CALLG; 


! Establish the file name to be printed. The resultant string, expanded 
: string. and filename string are examined in that order, and the first 
one that is not null is used. 


NAM = .FABCFABSL_NAM); 
Y -NAMCNAM$B_RSC) NEQ 0 


10 C9 CD CO 09 09 SII SINS SN SSSA AAA AAA AA MMIII BE BEEP EEE EW OO 
MEUNR 9 DONO US WIN (OOD NOAU EWN 0 OONAUES WN OO CONAUESWWN—OOON M— 


ee er ee ee ee ee ee eee ees [and 


PRIPDMIPINPIPIPDPNIPYNINIDNINYAIPYPDNONIAIPYNIPINYIDINIPIPINYINIPININIPINININIPIPIPIPIPUNDINIPIPIPIPUIPINININPININPINIPIN FC 


8 EN 

89 BEGIN 

90 DESCEO] = .NAMCNAMSB_RSL I; 
91 DESCL1] = .NAMLNAMSL_RSAJ; 
38 2 euse ir .NAMCNAMSB_ESLJ NEQ 0 


—— 


UTILITY utilit ty routines 18- -S$ep-1984 91:1 0:61 AX-11 Blis A 0-742 Page 33 
“VO4= FILE_ERROR = output file related error message 14-Sep-1984 9 BACKUP. SRC UTIL -B32;1 (9) 
; org 136 THEN GIN 

: 650 196 DESCEOI = = NAMENAM $8_ESL); 

; 651 19 DESCL1J] = .NAMLNAMSL_ESAJ; 

3 $26 198 END 

: 396 § et SE cin 

: 655 $s DESCEOS = .FABLFABSB_FNS); 

; 656 sos DESCC1) = .FABLFABSL_FNAJ; 

s 657 0 END; 

. oe: 

: +6 8 Initialize the signal parameter List. 

; 666 208 PARAM(O) = 3; ! Parameter count 

; 66 $599 PARAML1] = .MESSAGE; ! First message code 

> 664 210 pane J = i; ! FAO argument count 

: 665 211 J ! Filename descriptor 

3 666 gi¢ TF PACTUAL COUNT (3 GEQ 3 

: ree Siz = BEGIN 

: 669 $51 ; PARAM[O) = ato ba + 13 ! Increment parameter count 
; o70 s5i§ rate = .EXTR ! Next message code 

: 672 2218 $ 1F {ACTUAL COUNT) GEQ 4 

. ee ee 

> 675 2221 3 BE SANCO) = .PARAMLO] + 1; ! Increment parameter count 
; 676 $ss¢ 3 PARAM[5] = .EXTRA2; ! Next message code 

3; 677 222 END; 

oe Be 

: rt} $$5$ 3 | ! For these messages, the additional parameters are FAO arguments. 
: 682 2228 2 iF 

; 683 444 2 «MESSAGE EQL BACKUPS$_VBNMISSING OR 

3 «6684 2230 2 eMESSAGE EQL BACKUP$_ VBNERROR OR 

3 ore $53) re © mene EQL BACKUP$_VBNPASTEOF 

: 687 $535 NPARAMC2) = 3; 

: 888 $536 

: 690 $53 Sir ! For these messages, EXTRA1 is an additional FAO argument that appears before 
3; 691 237 ' the file name. EXTRA2, if present, continues to be a message code. 
8 a8 Bie 

> 69% 240 MESSAGE EQL BACKUPS_READBLOCK OR 

: 695 41 “MESSAGE EQL BACKUPS$_WRITEBLOCK OR 

3; 6%6 ry MESSAGE EQL BACKUPS_VERIFYE R 

3; 697 4 MESSAGE EQL BACKUPS$_BADDATA OR 

; 698 44 MESSAGE EQL BACKUPS_ SOFTRERRS OR 

4 +4 45 eMESSAGE EQL BACKUPS$_ SOFTWERRS OR 

; ope r ne EQL BACKUPS$— XORERRS 

: 70 4 EN BEGIN 

3 18 4 Bile = 2; 

> 704 50 PARAML3) = .EXTRAI; 


vA 


705 


X routines 
ROR = output file related error message 


Finally, signal the messages. 
CALLG(PARAM, LIBSSIGNAL); 
END; 


PARAM[4) = DESC; 
END; 
1 


= ad 
o-oco 
> 
m 


a eee 

oc oo 
S 
m 


04 
08 AE 
oc 
10 AE 


14 
000000006 8F 
000000006 8F 
000000006 8F 


000000006 8F 
000000006 8F 
00000000G 8F 
000000006 8F 


o NW OO 4 oo ONO 
- of Ow Ww Wooo 


—_ 
co 


o 
oO 


10 


07 


—VPIVPIVINIO OM § POO ro 
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00 00000 
C2 Bp bas 
DO 0000 

DO 00009 
95 00000 
13 00010 
9A B00i6 
DO 00017 
11 Q001C 
95 OOO1E 
13 00021 
9A pobs3 
DO 00028 
11 00020 
9A BOOS, 
DO 00034 
DO 00039 
DO 0003C 
DO 00040 
DO 00044 
9E 00048 
91 Sonep 
1F 00050 
D6 00052 
DO 00054 
91 00059 
1 He 
3 Hiss 
D1 00065 
13 Beer 
Di 0006 

1 

12 bore 
DO 00080 
D1 00084 
13 00088 
D1 0008 
1 Hise 
iS 0090 
D1 OO09F 
13 0006 


H 
16-Sep-1984 
14-Sep-1984 


1$: TSTB 
BR 

2$: aOv ees, 

3$: MOVL 
I 

4$: CMPB 
MO 

5$ CMPL 

gs MOVL 

$ CMPL 


ia ety Bliss-32 V4.0 
:09 BACKUP.SRCJUTILITY. 


ERROR, Save nothing 
SP 


AM), DESC+4 


FNM 8-4 -— -— GH -OP Wwe 
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L 
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( 
N 
NAM), DESC 
N 
( 
( 
( 
( 
( 
§ 


DZBwPVMA SS MW EW WE MST 
-oOmMmw 


#1. PARAM+8 
DESC, PARAM+12 
(AP). #3 


PARAM 

EXTRA1, PARAM+16 

(AP), #4 

ARAM 

EXTRA2, PARAM+20 

RO, #BACKUPS_VBNMISSING 


RO, #BACKUPS_VBNERROR 
RO, #BACKUPS$_VBNPASTEOF 


PARAM+8 
#BACKUPS$_READBLOCK 
#BACKUPS_WRITEBLOCK 
#BACKUPS_VERIF YERR 
#BACKUP$_BADDATA 


>. >. S 


GoD 00 D CoD CoD 
POROKLOKO 


Pee Se Se Se Se Ge Se Se Se Se Se Ge Ge Se Se Se Ge Ge Ge Fe Se Se Se Se Se Se Ge Se Se Se Se Se Se Fe Ge Be Be Fe Be Se Se Se Be 


rom 


MMM MMM NPM RoPONoMoPoRN = —fonner 
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MRM MMM MRM NMRA ARAM Hee 


MNRIN —@-A—— wwe 
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on TY utilit utine 
Yoetdon FILE TERROR ROR” - eutput file related 


; Routine Size: 


217 bytes, 


000000006 
000000006 
000000006 


a 
000000006 


Routine 


‘ 


50 D OA8 
12 1 OAF 
50 Di 00081 
9 13 00088 
Q 01 QOOBA 
3 is poe] 
DO 00 cS 8$: 
of AC 00 Q00C 
1 AE 9E OOOCC 
6E FA 00001 9$: 
04 00008 
CODE + OICF 


1488p -1984 2 Wi: 19: 
error message 12: ~Sep-1984 


AX-11 Bliss-32 V 
BACKUP. SRC UTILIT 


, #BACKUPS_SOF TRERRS 
, WBACKUPS_SOF TWERRS 
, #BACKUPS_XORERRS 
RAN, PARAMS 12 


Cs +16 
AM, TBS IGNAL 


PMxXMOoIPMOVOeo oOo— 


VOMRBOWDOVDOD orn 
Dn—s 


+705 742 
Y.832;1 


— seantidhpncegpaeatieprieemsnttens 


J 16 
| UTILITY Utility routines 16-Sep-1984 01:10:21 AX-11 Bliss-32 V4.0-742 Page 28 
“WO4=000 FIND_BADBLOCK = find block in bad block table 1e-8ep-19 4 0458385 YBACKUP SRE UTILITY.832;1 . ae 
: 716 59 1 ZSBTTL ‘FIND _BADBLOCK = find block in bad block table’ 

3 ay ¢ : GLOBAL ROUTINE FIND_BADBLOCK(TABLE,LBN)= 

3 n§ 86 1 te¢ 

; 718 65 1! 

: 719 64 1 ! FUNCTIONAL DESCRIPTION: : 

3 g 65 : This routine searches a specified bad block table for a specified LBN. 
oe § 6 1 ! INPUT PARAMETERS: 

; £ 68 1! TABLE - Pointer to bad block table. 
3 : 4 : ; LBN - LBN to search for. 

3; 726 71 #1 =! IMPLICIT INPUTS: 

. Ter Le 1! NONE 

; 2 73 1! 

: 168 74 1°! OUTPUT PARAMETERS: 

; 730 soe e NONE 

s si $76 1! 

$ r36 e7 1 ! IMPLICIT OUTPUTS: 

ors e78 1! NONE 

s 734 279, (1! 

3; 735 280 1 ! ROUTINE VALUE: 

; 736 $8) 1! True if the LBN is found, false otherwise. 
: 737 S¢ 1! 

3: 738 28 1 ! SIDE EFFECTS: 

; 739 284 1! NONE 

3; 740 2285 1! 

3: 741 2286 1 !-- 

> 742 2287 1 

3 745 2288 BEGIN 

3: 744 2289 P . 

i: 745 2290 TABLE: REF BBLOCK; ' Pointer to bad block table 
3; 746 2291 LOCAL ; : 
: 7647 $526 DESC: REF BBLOCK; ! Pointer to bad block descriptor 
>; 748 $53 
: 749 294 
: 750 $$92 ! If there is no table, assume not found. 

s 751 296 ! 

. 2297 IF . TABLE EQL O THEN RETURN FALSE; 

; 75 $$3e 

3 754 299 ‘ 

5 33 $300 Loop over all entries of the table. 

: 757 308 DESC = TABLECBAD_DESC); 

: 758 30 INCR I FROM 0 TO”. TABLECBAD_NUMDESCJ-1 DO 

3 128 soe BEGIN 

: re $09 : If the LBN is in the range described by this entry, return found. 
: 76 308 

3; 764 309 -LBN GEQU .DESCCBAD_LBN) AND 

3 163 $19 -.BN LEQU .DESCCBAD_LBN) + .DESCCBAD_COUNT) - 1 
: 767 ¢ RETURN TRUE; 

: 768 1 

; 769 14 

; 770 315 ! Advance to next entry. 


| K 
UTILITY it 16-Sep-1984 01:10:21 VAX#11 Bliss-32 v4.0-742 p 9 
BLobrUEK e tind block in bad block table LakeBaloee Hyidesay Hance e degC FT Fe abses ave 453 


il 

ND_B 

1 : 

1 DESC = .DESC + BAD_S_DESC; 

18 END; 

0 

1 ALL entries examined, return not found. 
: FALSE 
4 1 END 


SeSeee Ge Se teeetee 
NNNNNN 
SANSA NS 
CNS WN 

frororororororrrn = FC 

WANNA 


000¢ 00000 .ENTRY FIND_BADBLOCK, Save R2,R3 : 3260 
52 04 ag D 88 be MOVL TABLE, R2 ® 97 
27 13 00006 BEQL 4$ : 
5 08 A2 9 90008 MOV 8(R2), DESC : 2302 
5 01 CE 0000C MNEGL #1, + 2309 
1A 11 QO0OF BRB 3$ : 
60 08 AC 01 00011 1$ CMPL  LBN, (DESC) F 
11 1 00015 BLSSU -2$ F 
51 60 04 AO C1 00017 ADDL 4(DESC), (DESC), R1 : 2310 
51 D7 O001C DECL = R1 : 
51 08 AC D1 OO01E CMPL _—sLBN, R1 : 
04 1A 0002 BGTRU 2$ : 
50 01 DO 00024 MOVL #1, RO : 2312 
04 00027 RET : 
50 08 CO 00028 ¢3: ADD #8, DESC : 2317 
E2 53 62 F2 00028 3$: AOBLSS (Re), I, 1$ : 2303 
50 D4 000¢F 4$: CL > 2324 
04 00031 RET : 


; Routine Size: 50 bytes, Routine Base: CODE + 02A8 
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UTILITY Utility routine 1bese -1984 01:10:21 AX-11 Ot ist -32 V4.0-742 Pa 0 
v04-000 EXTRACT _FILENAME - get file name from FAB 14- Sep-19 4 91:32:83 BACKUP. SRC SUTILITY.B32¢1 ad Ts 
: 781 5 1 XSBTTL ‘EXTRACT_FILENAME = get file name from FAB’ 
; ie 8 : GLOBAL ROUTINE EXTRACT_FILE AME (FAB, DESC) : NOVALUE= 
: 786 8 1 !e4 
; 765 Be 
: 786 0 1 ! FUNCTIONAL DESCRIPTION: 
s 787 11 This routine extracts the filename, and filetype if it is not null, 
; 788 ¢ 1 i from the resultant string associated with FAB and returns a 
$ £88 7 : descriptor in DESC. 
: 791 2335 1 | INPUT PARAMETERS: 
2.) ee = inset $5 $63 St sencrtos 
: - Pointer to the output descriptor 
3; 794 338 1! 
3; 795 S826 1} SmPLECET INPUTS: 
3; 796 340 (1! ONE 
: 797 2341 1! 
; 798 Sae6 1 i OUTPUT PARAMETERS: 
; 799 2343 1! NONE 
; 800 2344 1! 
; 801 2345 1 i tats >! OUTPUTS: 
3; 802 2346 1 | ONE 
3; 803 2347 1 
3; 804 2348 1 i ROUTINE VALUE: 
3; 805 2349 1! NONE 
; 806 2350 1: 
3; 807 2351 1 i SIDE yh Le 
; 808 $326 1! ONE 
; 809 2353 1! 
; 810 2354 1 i+ 
» By 2355 1 
s 82 2356 2 BEGIN 
s BI 2357 2 MAP 
> 814 2358 2 FAB: REF BBLOCK, ! Pointer to FAB 
; 815 2359 2 DESC: REF BBLOCK; ' Pointer to descriptor 
; 816 2360 2 
3; 817 2361 2 ‘ 
; si3 $306 § : Construct a descriptor for the file name and file type, concatenated. 
3; 820 2364 § DESCCDSCSW_LENGTH] = ee FABCFC_NAM], NAMS$B_NAME] 
: 821 2365 KCFABLCFC"NAM), NAMS$B" TYPE): 
; Be 2366 : DESCLDSCSA_POINTER] = OOBLOCKLFABLFC. NAMI, NAMSC_NAMEJ; 
3 824 2368 1 END; 


009¢ 00000 ENTRY EXTRACT_FILENAME, Save R2,R3 : 2326 
50 04 ac 7D 00002 MOVQ FAB, RO™ > 2364 
3¢ OOCF CO 9A 00006 MOVZBL 207(R0), Re > 2365 
5 00D0 £0 9A 0008 MOVZBL 98(RQ), R ; 
61 52 53 Al 0001 ADDW3 R3, R2, (RI) : 
04 Al 0060 Cd bd 0014 MOVL  224(R0S, 4(R1) : 2366 
4 OOO1A RET > 2368 


Ratu Ae gen Oe mr et cal ane pecutehncnenmesoiahatag sian caatpiaii ts eee 


youtboo ett Hi t FILENAME = get file name from FAB 18 -329-1 964 iE 49: 89 BACKUPTSR thu ft TY. 95583 


; Routine Size: 27 bytes, Routine Base: CODE + O2DA 
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ZTSBITL “EXTRACT _DIR_FILENAME = get directory and file name from FAB’ 
GLOBAL ROUTINE EXTRACT_DIR_FILENAME(FAB,DESC): NOVALUE= 


‘ee 

i FUNCTIONAL DESCRIPTION: 
; This routine extracts the etegceery, name, type, and version from the 
resultant string associated with FAB and returns a descriptor in DESC. 
i INPUT PARAMETERS: 

; FAB - Pointer to the FAB : 
DESC - Pointer to the output descriptor 
' 

' 

! 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
NONE 


FAB: REF BBLOCK, ! Pointer to FAB ~ 
DESC: REF BBLOCK; ! Pointer to descriptor 


: Construct a descriptor for the portion of the resultant string beginning 
with the directory name. 


DESCCOSCSW_ LENGTH] = 
-BBLOCRIFABLFC_NAM], NAMSL_RSA] 
-BBLOCKCFABLFC_NAM], NAMSB_RSLJ 
-BBLOCKLFABLFC_NAM], NAMSL_DIRJ 

DESCLDSCSA_POINTERI = .BBLOCKCFABLF 


1 
1 
1 
j 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
; 
1 


é_WAM], NAMSL_DIRI; 


0004 00000 -ENTRY EXTRACT ; 3370 
50 06 ac 7D 00002 MOVO FAB, RO : 2409 
3 0097 CO 9a 00006 MOVZBL 151(R0), R > 2410 
0098 CO C0 00008 ADDL 132(R0) , R : 
61 5 donc CO A3 00010 SUBW g2 (RO). Re, (R1) : gai) 
06 «AI Onc CO bd 00016 MOVL O(RO); 4(R1) : aig 
04 0001C RET > 241 


.% 
UTILITY Utility routines 16-Sep-1984 01: 
¥04=000 i conse i984 1 


VAX=-11 Bliss-32 V4.0-74 P 
EXTRACT _DIR_FILENAME = get directory and file n 14-Sep-1984 ; eat 


21 
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; Routine Size: 29 bytes, Routine Base: (CODE + O2F5 


Be Se Oe Oe Be Se Se Se Be Oe eB, 


901 


38 


SES332 


tl elt cl lt elt elt cl call cl 


OOOOOOOVOVOO 
O@BNOAVE WN oO 


CBSASK COMMAND]: 
DST = OUTPUT_ATTBUFCBSR_COMMAND); 
i 


D1 
Utility routines 16-Sep-19 1:10:21 AX-11 Bliss-32 v4. 
GET_ONE_ATTRIBUTE - save value of specified att 107380- 138 94:52:69 UBACKUP.SRe UTILITY. 
414 1 ZSBITL ‘GET_ONE_ATTRIBUTE - save value of specified attribute’ 
oi? : ROUTINE GET_ONE_ATTRIBUTE(ATT): NOVALUE= 
“i? 1 lee 
418 1! 
419 1 ! FUNCTIONAL DESCRIPTION: - 
? , : This routine saves the value of one attribute. 
4 ¢ 1 ! INPUT PARAMETERS: : : 
? ? : : ATT - Pointer to attribute entry from save set record. 
425 1! IMPLICIT INPUTS: 
; $ ; NONE 
428 1 ! OUTPUT PARAMETERS: 
429 1! NONE 
4350 1! 
431 1 ! IMPLICIT OUTPUTS: ; i 
$3 ; } OUTPUT_ATTBUF = Contains the attribute value. 
434 1 ! ROUTINE VALUE: 
435 1! NONE 
436 1! 
437 1°! SIDE EFFECTS: 
438 1! NONE 
439 1! 
440 1 !-- 
441 1 
442 2 BEGIN 
443 2 MAP 
BOG $ REF BBLOCK; ! Pointer to attribute entry 
2445 2 LOCAL 2 
2446 2 DLEN, ! Length of attribute storage 
sete 3 DST: REF BBLOCK; ! Pointer to attribute storage 
449 
2450 2! Initially, dispatch on the attribute code to establish where in OUTPUT_ATTBUF 
2451 ! the value of the attribute is stored. Also, establish whether a descriptor 
45 ! for, or the value of, the attribute will be stored. If the value, establish 
th : the length of the attribute storage. 
455 IF 
456 BEGIN 
ret ASE STTCRSARM_ THES FROM BSASK_SSNAME TO BSASK_NUM_ATRS-1 OF 
2459 
$709 i CBSASK_SSNAME]: 
2462 4 DST = OUTPUT_ATTBUFCBSR_SSNAME); 
465 4&4 TRUE 
464 END; 
465 
6 
& 
& 
3 


Be Be Re Be Oe Oe Oe Oe Oe Oe Be Oe Oe Oe Oe Os Be Oe Oe Oe Oe Oe Oe Oe Oe Os Oe Oe Oe Oe Oe Oe Os Oe Oe Oe Oe Oe Os Oe Oe Oe Os Oe Oe Oe Oe Os Oe Oe Os Os Oe Os Oe Ss oe 


1 
UTILITY Utility routines 1$-sep-19 4 01:10:21 AX-11 Bliss-32 V4.0-742 Page 35 
_ONE_ - save value of specified att 14-Sep- 254: ° -B32; 
yoeb00 GET ont ATTRIBUTE L f ified 14-$ 198 11:54 85 BACKUP.SRCJUTILITY.832;1 «33 
9 471 ; 
930 47 CBSASK_ COMMENT]: 
931 473 4 BEGIN 
+ ¢ 474 & DST = OUTPUT_ATTBUFCBSR_COMMENTI; 
5 475 & TRUE 
9: 47 END; 
935 47 
9 478 CBSASK_USERNAME): 
937 479 & N 
4 480 4 DST = OUTPUT_ATTBUFCBSR_USERNAME); 
939 481 & TRUE 
ee SR a 
94 484 CBSASK_USERUIC): 
94 485 4 N 
944 486 4 DST = OUTPUT_ATTBUFCBSR_USERUICI; 
945 487 4 DLEN = 4; 
946 488 4 FALSE 
947 489 ; END; 
948 490 
949 491 3 CBSASK_DATE): 
950 492 4 N 
951 493 4 DST = OUTPUT_ATTBUFCBSR_DATE); 
328 2494 & DLEN = 8; 
95 sige 4 FALSE 
RG ey 
956 rns CBSASK_OPSYS): 
957 rte4 & N 
958 500 4 DST = OUTPUT_ATTBUFLBSR_OPSYS); 
959 2501 4 DLEN = 2; 
960 $20¢ 4 FALSE 
961 $20 END; 
268 504 
96 2505 (BSA$K_SYSVER]: 
964 2506 4 N 
965 $208 4 DST = OUTPUT_ATTBUFCBSR_SYSVER]; 
966 508 4 TRUE 
967 $20p 3 END; 
968 510 3 
969 e511 5 CBSASK_NODENAME): 
970 $2i¢ 4 N 
971 51 4 DST = OUTPUT_ATTBUF CBSR_NODENAME J; 
378 514 4 TRUE 
97 515 END; 
97% $21¢ 
975 51 CBSASK_SIRI: 
ame 518 4 N 
97 519 4 DST = OUTPUT_ATTBUFCBSR_SIRJ; 
978 520 4 DLEN = 4; 
979 521 4 FALSE 
380 ; ¢ ; END; 
+ ; $ i CBSASK_DRIVEID): 
984 5 $ & DST = OUTPUT_ATTBUFCBSR_DRIVEID); 
985 5 4 TRUE 


co 
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— 
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END; 

CBSASK_BACKVER]: 
DST = OUTPUT_ATTBUFCBSR_BACKVER]; 
TRUE 
END; 

CBSASK BLOCKSIZEJ: 
DST = OUTPUT_ATTBUFCBSR_BLOCKSIZE); 
DLEN = 4; 
FALSE 
END; 


WAWAA AAAI te 


[BSASK_XORSIZE): 
DST = OUTPUT_ATTBUF[BSR_XORSIZEI; 
DLEN = 2; 


FALSE 
END; 


CBSASK BUFFERS): 
DST = OUTPUT_ATTBUFCBSR_BUFFERS); 
DLEN = 2; 


FALSE 
END; 


CBSASK VOL SE THAR: 
ele OUTPUT_ATTBUF CBSR_VOLSETNAM]; 
END; 

CBSASK_NVOLS): 


AAQMMMM MMIII ES BEEP PEE 
WR 0 OOWOAUE WO O®VOAU EWN SC ODNOUFWWR—"O”OM 1 — 


aaa aa RITE PATA PRO ee ee ee etc ce ne ane mee 
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64 

65 DST = OUTPUT_ATTBUFCBSR_NVOLS); 
566 DLEN = 2; 

567 FALSE 

568 END; 

569 

359 CBSASK PACKSIZE): 

276 DST = OUTPUT_ATTBUFCBSR_BACKSIZE); 
57 DLEN = 8; 

574 FALSE 

575 END; 

576 

aA CBSASK_BACKFILES): 

579 DST = OUTPUT_ATTBUFCBSR_BACKFILES); 
580 DLEN = 4; 

28) coe 

338 

584 CBSASK_VOLSTRUCTJ: 


Cc 
J 
e-* 
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GET_ONG_AT TRIBUTE - save value of specified att 14-Sep-19 4 94:50:89 BACKUP. SRCJUTILITY.832;1 943) 
2 5 4 BEGIN 
§ 4 DST = OYTPUT AT IOUFLVSR VOLSTRUCTI; 
5 & DLEN = 2; 
588 4 FALSE 
396 ; END; 
44 7 CBSASK_VOLNAME]: 
238 4 DST = OUTPUT_ATTBUFCVSR_VOLNAME); 
594 4 TRUE 
595 ; END; 
$31 i CBSASK_OWNERNAME J : 
599 4 DST = OUTPUT_ATTBUFCVSR_OWNERNAME); 
600 4 TRUE 
et ; END; 
60 CBSASK_FORMAT): 
604 4 
05 4 DST = OUTPUT_ATTBUFCVSR_FORMAT]; 
606 4 TRUE 
607 END; 
2608 
yee i CBSASK_RVN): 
611 4 DST = OUTPUT_ATTBUFLVSR_RVNI; 
sol¢ 4 DLEN = 2; 
61 & FALSE 
614 END; 
615 
seis i CBSA$K_VOLOWNER): 
2618 4 DST = OUTPUT_ATTBUFCVSR_VOLOWNERI; 
2619 4 DLEN = 4; 
2620 4 FALSE 
2621 3 END; 
soe ; 
262 CBSA$K_PROTECT): 
2624 & N 
$052 4 DST = OUTPUT_ATTBUFCVSR_PROTECT); 
626 4 DLEN = 2; 
2627 & FALSE 
a8 | pee 
: ? ? CBSASK_FILEPROT): 
2632 4 DST = OUTPUT_ATTBUFCVSR_FILEPROTI; 
633 4 DLEN = 2; 
os 4 FALSE 
635 3 
O36 
63 CBSASK_RECPROT): 
638 4 BEG! 
639 4 DST = OYTOUT AT VOUFLVSR_SECPROT 
640 4 DLEN = 2; 
641 4 FALSE 
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64 

6h CBSASK_VOLCHAR): 


DST = Hie celle cate, etme 
DLEN = 2; 
FALSE 
END; 
CBSASK_VOLDATE): 
DST = OFPUT AT TOUT EVER VOLBATES; 
DLEN = 8; 
FALSE 
END; 
CBSASK_WINDOWJ: 


DST = OUTPUT_ATTBUFLVSR_WINDOW]; 
DLEN = 1; 
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4 
4 
4 
4 
4 
4 
4 
4 
661 4 =1; 
662 4 FALSE 
66 END; 
66 
66 CBSA$K_LRU_LIM]: 
666 4 N 
2667 & DST = OUTPUT_ATTBUFCVSR_LRU_LIM]; 
2668 4 DLEN = 1; 
2669 4 FALSE 
670 END; 
671 
267 CBSASK_EXTEND]: 
2675 4 N 
2674 & DST = OUTPUT_ATTBUFCVSR_EXTEND); 
2675 4 DLEN = 2; 
2676 4 FALSE 
2677 3 END; 
2678 ; 
+t44 f CBSASK_CLUSTER): 
$ea 4 DST = OUTPUT_ATTBUFCVSR_CLUSTER]; 
2682 4 DLEN = 2; 
6835 4 FALSE 
one ; END; 
one i CBSASK_RESFILES): 
688 4 DST = CYTPUT AT IOUT CVER SESE LES: 
689 4 DLEN = 2; 
690 4 FALS 
re4 ; END; 
69 CBSA$K_VOLSIZE): 
694 4 GIN 
695 4 DST = OUTPUT_ATTBUFCVSR_VOLSIZE); 
696 4 DLEN = 4; 
697 & FALSE 
2698 3 END; 
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£30 CBSASK TOTSIZE3: 

186 +78 = Aa tater ATTBUFCVSR_TOTSIZE]; 

704 PAE SE 

705 END; 

re 

0 CBSASK_TOTFILES): 


DST = OUTPUT -ATTBUFCVSR_TOTFILES); 
DLEN = 


FALSE 
END; 


CBSASK_MAXFILES): 
DST = OUTPUT_ATTBUFLVSR_MAXFILES); 
DLEN = 4; 
FALSE 
END; 
CBSA$K MAXF ILNUM] 
DST = OUTPUT. ATTBUF CVSR_MAXF ILNUM); 
FALSE — 
END; 
CBSA$K eae: 
DST = _OUTPUT_ATTBUFLVSR,SERIALNUM]; 


FALSE 
END; 


CBSASK f ALENARE): 
DST = OUTPUT_ATTBUFCFAR_FILENAME); 
TRUE 
END; 
CBSASK_STRUCLEV): 
of <OyTPUT. ATTBUFCFAR_STRUCLEV); 
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745 FALSE 
74 END; 
74 
748 CBSA$K_F ID): 
749 EGIN 
750 DST = OUTPUT_ATTBUFCFAR_FID); 
751 DLEN = 6; 
FALSE 
END; 
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tines -7 
RIBUTE = save value of specified att -B32;1 (13) 


BEGIN 
DST = OUTPUT_ATTBUFCFAR_BACKLINKI; 
DLEN = 6; 


DST = OYTPUT_ATTOUFCFAR_RECATTRI; 
DLEN = 32; 


END; 
CBSA$K_REVISION): 
BEGIN 


util 
GET_ 
756 & 
By 
ie a 
76 ; ‘ 
766 CBSASK_FILESIZE): 
763 4 BEGIN 
764 4 DST = OUTPUT_ATTBUFCFAR_FILESIZE); 
765 4 DLEN = 4; 
re § ie 
766 ; ; 
769 ; (BSASK vicd: 
771 DST = OUTPUT_ATTBUFCFAR_UICI; 
772 & DLEN = 4; a 
rn § est 
2175 ; F 
176 ; CBSASK_FPRO): 
sire 4 DST = OUTPUT_ATTBUFLFAR_FPROJ; 
2779 & DLEN = 2; 
sr ese 
g78¢ ; ’ 
783 5 CBSAS$K_RPROJ: 
2785 4&4 DST = OUTPUT_ATTBUFCFAR_RPRO); 
2786 4 DLEN = 2; 
me se 
2789 3 ’ 
790 ; [BSASK ACLEVEL]: 
798 4 DST =_OUTPUT_ATTBUF CF AR ACLEVELI; 
i io 
2796 ; : 
3797 ; CBSASK UCHARI: 
ue 4 DST = OUTPUT_ATTBUFCFAR_UCHAR); 
4 DLEN = 4; 
4 FALSE 
; END; 
$ ; CBSASK_RECATTR): 
4 
4 
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nes 16-Sep-1984 os 
BUTE = save value of specified att 14-Sep-1984 11: 


DST = OYTPUT AT TOU UF AR SEVESIOND: 
DLEN = 2; 
FALSE 
END; 

CBSASK FREDATE Is 
DST = SECO AT CF AR EMEA Ze 
DLEN = 8; 


FALSE 
END; 


CBSAS$K_REVDATE): 
DST = OUTPUT_ATTBUFLFAR_REVDATE); 
DLEN = 8; 


FALSE 
END; 


CBSASK_EXPDATE): 
DST = OUTPUT_ATTBUFCFAR_EXPDATE); 
DLEN = 8; 


FALSE 
END; 


CBSASK ‘7 pai 
DST = OUTPUT_ATTBUFCFAR_BAKDATE); 
DLEN = 8; 

FALSE 
END; 

CBSASK SECTORS J 
DST = OUTPUT_ATTBUFCPVA_SECTORS]; 
DLEN = 1; 


fase 
END; 


CBSASK_TRACKS): 
DST = OUTPUT_ATTBUFCPVA_TRACKS); 
DLEN = 1; 
FALSE 
END; 


CBSASK_CYLINDERS): 
DST = OUTPUT_ATTBUFCPVA_CYLINDERS); 
DLEN = 2; 


FALSE 
END; 


CBSASK MAXBLOCK]: 
DST = OUTPUT_ATTBUFCPVA_MAXBLOCK); 
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DLEN = 4; 
FALS 
END; 


CBSASK pvrwree 
DST = OUTPUT_ATTBUFCPVA_DEVTYP); 
DLEN = 4; 


FALSE 
END; 


CBSASK_SERIAL]: 
DST = OUTPUT_ATTBUFCPVA_SERIAL]; 
DLEN = 4; 


FALSE 
END; 


CBSASK DEVNAM] 
DST = OUTPUT_ATTBUFCPVA_DEVNAM]; 
TRUE 
END; 

CBSASK_LABEL): 
DST = OUTPUT_ATTBUFCPVA_LABEL); 
i 
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899 

4's CBSA$K_BADBLOCK): 
290 DST = OUTPUT_ATTBUFCPVA_BADBLOCK); 
90 TRUE 

904 END; 

905 

308 casas INDEXLBN): 

908 DST = OUTPUT_ATTBUFCVSR_INDEXLBN); 
909 DLEN = 4; 

910 FALSE 

911 END; 

4 

ay CBSA$K_BOOTBLOCK): 

915 DST = OUTPUT_ATTBUFCVSR_BOOTBLOCK); 
4 TRUE 

91 END; 

4 

4h CBSA$K_BOOTVBN): 

921 DST = OUTPUT_ATTBUFCFAR_BOOTVBN); 
9 § DLEN = 4; 

9 FALSE 

; 3 END; 

926 CBSASK_PLACEMENT): 


DST = OUTPUT _ATTBUF CVSR_RETAINMIN] ; 


m4 
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1 927 4 BEGIN 

1 9 8 4 DST = OUTPUT_ATTBUFCFAR_PLACEMENTI; 

1 9 TRUE 

1388 930 END; 

1389 931 

1390 9 ¢ CBSASK _DIR_UIC): 

1391 9 4 N 

1 4 934 4 DST = OUTPUT_ATTBUFCFAR_DIR_UIC); 

139 935 4 DLEN = 4; 

1394 9 § 4 

1395 9 ; 

1 +] 938 

139 939 CBSASK_DIR_FPROJ: 

1398 940 4 

1399 941 4 DST = OUTPUT .ATTBUF LFAR_DIR_FPROJ; 

1400 942 & DLEN = 2; 

1401 9435 4 FALSE 

1e8 944 END; 

140 945 

1404 946 CBSASK_DIR_STATUS): 

1405 947 & N 

1406 948 4 DST = OUTPUT_ATTBUFCFAR_DIR_STATUS); 

1407 949 4 DLEN = 1; 

1408 950 4 FALSE 

1409 951 END; 

1410 926 

1411 95 CBSASK_DIR_VERLIM]: 

1 \¢ 954 4 IN 

141 955 4 DST = OUTPUT_ATTBUFCFAR_DIR_VERLIM]; 

1414 956 4 DLEN = 2; 

1415 957 & 

1416 958 END; 

1417 959 

1418 960 CBSASK_VERLIMIT): 

1419 961 4 N 

1 20 962 4 DST = OUTPUT_ATTBUFCFAR_VERLIMITI; 

1421 9635 4 DLEN = 2; 

1 $§ 964 4 FALSE 

1 965 END; 

1424 96 

1425 96 CBSASK_RETAINMIN): 

1426 968 4 

1427 & 

1 4 

1 4 

1 

1 

1 

1 4 

1 & 

1 4 

1 4 

1 

1 

1 

1 4 

1 6 
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8 970 DLEN 
9 971 FALSE 
97 END; 
3! 97 
; 4} CBSASK RETAINAAK): 
97 DST = OUTPUT ATTBUFCVSR_RETAINAAX); 
5 97 DLEN = 8; 
978 FALSE 
3 979 END; 
33 980 
) 981 .BSASK_ACLSEGMENT): 
40 9 4 BEGIN 
41 98 DST = OUTPUT_ATTBUFCFAR_ACLSEGMENT); 
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984 TRUE 

5 END; 

35 CBSASK renee 

389 DST = OUTPUT_ATTBUFCFAR_HIGHWATER); 

990 DLEN = 4; 

991 FALSE 

936 END; 

99 

a CBSASK JNL_FLAGSI: 

996 DST = OUTPUT_ATTBUFCFAR_JNL_FLAGSJ; 

997 DLEN = 2; 

998 FALSE 

999 END; 

000 

001 CBSASK_CRYPDATKEY]): 

00 BEGIN 


DST = OUTPUT_ATTBUFCBSR_CRYPTDATA); 


DLEN = BSASS_CRYPDATKEY; 
FALSE 
END; 
CINRANGE , OUTRANGE): 
RETURN; 
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Sssssss 
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TES 
END 
THEN 
BEGIN 


Descriptor-valued attribute. Put a descriptor at location DST. 


DSTCDSCSW_LENGTH] = .ATTCBSASW_SIZE); 
pst DSCSA~POINTER] = ATTCBSASC~LENGTH,0,0,0); 


ELSE 
BEGIN 


i Not a descriptor. Zero-extend to songs DLEN at location DST. | 
! For some special cases, copy the attribute value to a global variable 
} for the READSAVE routines. 


CHSCOPY( .ATTCBSASW_SIZEJ, ATTCBSASC_LENGTH,0,0,0], 0, .DLEN, .DST); 
IF .ATTCBSASW_TYPE] EQL BSASK_BUFF : 

THEN RWSV"LOOKAHEAD = .OUTPUT ATTBUFCBSR_BUFFERSI; 
IF .ATTCBSASW-TYPE) EQL BSASK X 

THEN RWSV“XORSIZE = .OUTPOT_ATTBUFCBSR_XORSIZEJ; 
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END; 


OOFC 00000 GET_ONE_ATTRIBUTE: 


Page 13) 


2415 
0 
4 


~ 
a 

~ 
oa 
a 

es 
ww 
am 

“+ - 
wu -] 
e7 7 

-@ 
me . 
cr - 

<= tres setreeeepepeepeererereereereevreereeeeeeees ‘ee seeees 
~w mo *es 286800068884 e8e8s8 ®&e®e 8 &® ® & fF & F&F seeee eee se se & & *s es © 8 © & ©§ © ©§ FF © tees 
SSE MMA + = & FF FF MAAMAAAAARAAA AAA AAAAAPAAAAAAAAAAAA AA + APAAAA 
ze ~— — —-ARARAARAARAAB FF OOOO OK KK ARK KK ARC KKK 
J bd Ctterwrerereerer tt tttteteee ees #eeepcueoued #6086 66 6 6m 6b Comm tb tee et 
Pe TMMAPM EF 1 tt 8 8 LE AAMAAAAAARABAAA AA AAAAAAAAAAAAAAAAAAAIAA | | AAAGRA 
Diber abot aio ae iner en orenae ce ener en alurarohuhotonwaraitth se oeabe tne tee 
MNO €£ ZVI OO OOH FN OR. DD. OO QIN CCUM SF ST ONT TPO I 
29 3a 
ad JsJwe 
S555¢3 

‘e220: 


teat — > 4s We NTN TOO DYVOwoOr O 
OOOO OCOOOOOOOOOOOCSCoo 


wOounMovweowsood cvoManam 
VunOon-mM 7s Ssecev wom 


3 


mu aquvqdoomoqmurn 
SB5u° WOSNIMIA SR we Bown SM 
oO COOOOCOCOCOCOCOCOCOOOoOOoOOO 


a Qe ES. 


———_—_ F.C [| SOOO OO ——— — 


2 
UTILITY Utility routines $56 -1984 01:10:21 AX-11 Bliss-32 V4.0-742 © 6 
Vv06 GET_ONE_ATTRIBUTE = save value of specified att 12786871382 9435838 BACKUP.SRCJUTILITY.832;1 age 43) 
168-18. : 
50$-1$,- ; 
at at : 
| $3-13:- : 
S13. 3 
268-18.- : 
58$-1$,- ; 
60$-1$,- : 
| 61$-15.- : 
62$-1$,- ; 
| 64$-1$,- : 
69$-1$,- : 
65$-1$.- : 
66$-1$,- : 
68$-1$,- j 
18$-1$,- ; 
9$-1$.- : 
0$-1$,- : 
72$-1$.- : 
| 73$-1$,- : 
76$-1$,- ; 
77$-1$,- ; 
78$-1$.- ; 
79$-1$.- ; 
81$-1$.- ; 
82$-1$,- : 
84$-1$.- ; 
86$-1$,- ; 
90$-1$ 3 
04 000BC RET ; 3009 
50 67 ¥ 0008p 2s: MOVAB OUTPUT_ATTBUF +24, DST ; 2480 
50 46 ay 9 000¢2 3$: MOVAB OUTPUT_ATTBUF +92, DST ; 2486 
50 0c a7 He 900¢8 4$: MOVAB OUTPUT_ATTBUF +36, DST ; 3493 
50 54 ar 9 O00cE 5$: BOVAB OUTPUT_ATTBUF+108, DST : 2300 
50 14 a7 1 90004 6$: MOVAB OUTPUT_ATTBUF +44, DST : 2507 
50 1C a? 9 OODA 7$: MOVAB OUTPUT_ATTBUF +52, DST ; 2513 
50 48 Ar 9 9000 8$: MOVAB TPUT_ATTBUF +96, DST 3 519 
50 24 av 9 O00E6 9$: MOVAB TPUT_ATTBUF +60, DST ; 2526 
| 50 2¢ AY $F QOOEC 108: © MOVAB OUT PUT_ATTBUF +68, DST ; 2532 
| 50 4C ar 9 O00 118: MOVAB TPUT_ATTBUF +100, DST 3 2538 
50 56 ar 9 O0ar§ 128: MOVAB YTPUT _ATTBUF +110, DST : 3945 
50 58 a7 9% OOF 13$: MOVAB TPUT_ATTBUF +112, DST : $34 
50 34 A? QF 00104 148: MOVAB —QUTPUT_ATTBUF +76, DST : 2559 
0148 31 00108 15$: BRW 87$ ; 
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50 5A a7 9 0108 16$: a TPUT_ATTBUF +116, DST | 365 
50 3¢ a7 H a3 17$: MOVAB UTPUT_ATTBUF +84, DST ; ore 
| 50 50 Ar H O17 18 BOVAB OUTPUT_ATTBUF +104, DST ; 379 
| 50 28 fH! H O11D 19$ MOVAB YTPUT_ATTBUF +64, DST 38 
50 2A a7 H ot : 208: MOVAB TPUT_ATTBUF +66, DST 611 
| 50 10 47 9 00189 a: ROVAB OUTPUT _ATTBUF +40, DST : 2618 
50 2c M4 H 91 f $$: MOVAB TPUT_ATTBUF +68, DST ; $6 
| 50 2E M4 9 00135 248: MOVAB TPUT_ATTBUF+70, DST ; 632 
50 30 A? 9E 00138 258: MOVAB TPUT_ATTBUF +72, DST : 2639 
| 50 32 s oe aes 6$: MOVAB TPUT_ATTBUF +74, DST ; Zee 
50 ef a 00147 288: ROvAB OUTPUT_ATTBUF +24, DST ; 3693 
50 3A Ar 9 aoiee 0$: MOVAB OUTPUT_ATTBUF +82, DST ; 3660 
50 38 a7 9 00132 31$ MOVAB OUTPUT_ATTBUF +83, DST ; 3667 
50 34 a7 H 00198 328: MOVAB OUTPUT_ATTBUF +76, DST ; 3674 
| 50 36 M4 9 00158 338: MOVAB OUTPUT_ATTBUF +78, DST ; 268 
50 38 ar 9 00164 348: MOVAB TPUT_ATTBUF +80, DST ; 3688 
50 14 ay H 00164 i MOVAB OUTPUT_ATTBUF +44, DST ; 2695 
Re Mie Ao a ee ee 388 
50 18 a? 9 00176 40S: MOVAB OUTPUT _ATTBUF +48, DST : 3708 
50 1¢ Ar H oo17¢ 418: MOVAB OUTPUT _ATTBUF +52, DST e716 
50 20 ar H 00182 428: MOVAB OUTPUT _ATTBUF +56, DST ; Hs 
50 24 a7 9 ab18¢ 438: MOVAB TPUT_ATTBUF +60, DST ; $18) 
50 38 ay 9 001 8¢ 45$: MOVAB QUTPUT_ATTBUF +80, DST 3730 
| MO BB a: ee piygearmu se, on i 
7B 11 00198 BRB ; 
50 62 A 1 0190 488: MOVAB QUTPUT _ATTBUF +122, DST ; 3733 
i 8 oe eee ee S80? 
6C 11 OOTAA BRB ; 
50 18 A 9 30185 508: MOVAB TPUT_ATTBUF +48, DST : 383 
50 20 A? 9E 001B2 51$:  MOVAB OUTPUT_ATTBUF +56, DST ; 2827 
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TPUT_ATTBUF +64, DST 
TPUT_ATTBUF +72, DST 
UTPUT_ATTBUF +34, DST 
UTPUT_ATTBUF +35, 
TPUT_ATTBUF +32, 
TPUT_ATTBUF +24, 
TPUT_ATTBUF +36, 
TPUT_ATTBUF +28, DST 
UTPUT_ATTBUF, DST 
TPUT_ATTBUF +16, DST 
OUTPUT_ATTBUF +84, DST 
OUTPUT_ATTBUF +88, DST 
QUTPUT_ATTBUF +B, DST 
OUTPUT_ATTBUF +116, DST 
OUTPUT_ATTBUF+120, DST 
QUTPUT ATTBUF +123, DST 


OUTPUT_ATTBUF +124, DST 
OUTPUT_ATTBUF +126, DST 
SUTPUT _ATTBUF +96, DST 
OUTPUT _ATTBUF +104, DST 
#8, DLEN 


TPUT_ATTBUF +128, 
OUTPUT_ATTBUF +136, 
#4, DLEN 


DST 


DST 
88 

OUTPUT_ATTBUF +140, DST 
#2, DLEN 

TPUT_ATTBUF 4116, DST 
4, OCEN 


#24, 
@ATT, (DST) 
4(R25, 4(DST) 
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REE AS52338 ta 
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UTILITY Utility routines 16-Sep-1984 01:10:21 VAX-11 Bliss-32 V4.0-742 Page 49 
v04-000 GET_ONE ATTRIBUTE = save value of specified att 14-Sep-1984 11:54:09 CBACKUP.SRCJUTILITY.832;1 (13) 
51 00 046 A2 04 BC 2c o088? 88$: MOVCS @ATT, 4(R2), #0, DLEN, (DST) ; 3028 
OF 02 A6 61 00 8 CMP (R6), #15 : 3029 
06 12 0026C BNEQ 3 
FE2A (7 58 A? 90 00 6 MOVB TPUT_ATTBUF #112, RWSV_LOOKAHEAD ; 3030 
OE 02 Ag 81 0 i 89S: cMPw (R6), #14 ; 3031 
FE2B C7 56 OA OO7A MOVB OUTPUT_ATTBUF +110, RWSV_XORSIZE + 3032 
04 00280 908 RET ; 3034 


; Routine Size: 641 bytes, Routine Base: CODE + 0312 


— 


=) 
Sted 
aE 


a ss ss “a ws a a a 2 2 as a YY YL 


BURRS SSSA LACSEA BARE R RADE ES 
NOUFUN OOONOMEWUMO DSR Ve ARoM OS oa ue 


: Routine Size: 


utilit tine 18-56 “19 1:10:21 AX-11 Bliss-32 v4.0 Page 50 
GET_SUMMARY ATT ATTRIBUTES = process BACKUP summary 12-8 08-198e 9 10:8) BACKUP .SRCJUTILI 34°5 ase 1 . (14) 
035 1 ZSBTTL *GET_SUMMARY_ATTRIBUTES = process BACKUP summary record’ 

! GLOBAL ROUTINE GET_SUMMARY_ATTRIBUTES(REC): NOVALUE= 

0 3 1 lee 

0 1 / 

Bey 1 ! FUNCTIONAL DESCRIPTION: 

41 1! This routine processes a BACKUP euanery attribute record, expanding 
oh ; } the attributes it contains into the OUTPUT_ATTBUF area. 
044 1 | INPUT PARAMETERS: 

Be? : REC - Pointer to attribute record. 
bc? 1 ! IMPLICIT INPUTS: 

048 1! NONE 

049 1! 

050 1 ! OUTPUT PARAMETERS: 

051 1! NONE 

O26 1! : 

05 1 ! IMPLICI? OUTPUTS: i 
bee : } OUTPUT_ATTBUF = Contains the attribute values. 
B26 1 ! ROUTINE VALUE: 

057 1! NONE 

058 1! 

$525 1 ! SIDE EFFECTS: 

060 1! NONE 

061 1! 

062 1 !-- 

$00 1 

064 BEGIN 

3065 at REGISTER P$ = 

3066 CHSFILL(O, BSR LENGTH. ‘burput A TTBUF ) 

64 ¢ DEBLOCK ATTR(.REC, MASK BSR, GET_ONE “ATTRIBUTED; 


083¢ 00000 -ENTRY GET SUMMARY ATTRIBUTES, Save R2.R3.R4,R5.- ; 3036 
00 6€ 00 2c 00002 MovcS #0, (SP), #0, #140, OUTPUT_ATTBUF : 3066 
00000000° EF ; 
FD CF 9F 0000 PUSHAB GET_ONE_ATTRIBUTE ; 3067 
FA CF 9F 0001 PUSHAB MASR_BSR ; 
06 AC DD 90016 PUSHL R ; 
FBB3 CF 03 FB 00019 CALLS #3, DEBLOCK_ATTR 
04 O001E RET : 3068 


31 bytes, Routine Base: CODE + 0593 


a 


+e 


ss 
— 
r 
35 
«< 
as 


SSS 
Wwnr—oo 


cococe ee 
VERRAN SS Savors 


oe fole lol ole olelolololololola! 
ONIN III a at st st st kk kk hk a dh oh dt 


Be Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se oe 
ee a a ed a 
NOUS WN OO OONOUS WN OO 
o 
oo 
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o 
mC O@ 


0070 =8F 


8 


routines 1b-seo-1984 91: 10: $4 AX-11 Bliss-32 Vv +3" =742 Pee i! 


UME ATTRIBUTES = process volume summary 14-Sep- 
ZSBTTL "GET VOLUME_ATTRIBUTES = process yolune summary record’ 


GLOBAL ROUTINE GET VOLUME _ATTRIBUTES(REC): NOVALUE= 
lee 

FUNCTIONAL DESCRIPTION: 

the attributes it contains into the OUTPUT_ATTAU 
i INPUT PARAMETERS: 
REC - Pointer to attribute record. 
i IMPLICIT INPUTS: 

NONE 

' 
] 
i] 
' 
' 
' 


i QUTPUT PARAMETERS: 
i NONE 


i IMPLICIT QUTPUTS , 
! OUTPUT _ATTBUF - Contains the attribute values. 
i ROUTINE VALUE: 

; NONE 


i SIDE EFFECTS: 
i NONE 
leo 


BEGIN 
GLOBAL REGISTER P$ = 11; 
CHSFILL(O, VSR LENGTH. ‘eurpur ATTBUF ) 

DEBLOCK AFTR(. REC, MASK_VSR, GET_ONE “ATTRIBUTED; 


083C 00000 -ENTRY 
00 6€ 00 2C 00002 vcs 
00000000" EF 00009 

FDSE CF OF et PUSHAB 
FAGG «=6CFCODF beet PUSHAB 

04 Ac DD 00016 PUSHL 

FB94 CCF 03 FB 00019 CALLS 

04 OOOTE ET 


; Routine Size: 31 bytes, Routine Base: CODE + 0582 


BACKUP. SRC UTiLit 32;1 


S routine processes a volume Spe eutpur ary expanding 


F area. 


GET_VOLUME ATTRIBUTES, Save R2, a3 R4,R5,R11 
#0,~(SP), #O, #112, OUTPUT _ATTBUF 


GET_ONE_ATTRIBUTE 
MASR_VSR 


#3, DEBLOCK_ATTR 


3070 
3100 


3101 


3102 


| 
2 
UTILITY Utility routines tose -1984 01:10:21 AX-11 Bliss-32 v4.0-742 Pa 52 
youtbo0 GET_FILE ATTRIBUTES = process file attribute re 1 ~3007 1382 94598385 EBACKUP. SRE UTILITY.832;1 9° 18) 
3 1564 103 1 ZSBTTL ‘GET_FILE_ATTRIBUTES - process file attribute record’ 
s : 65 ; ¢ ; GLOBAL ROUTINE GET_FILE_ATTRIBUTES(REC): NOVALUE= 
3 1 re 1 1 lee 
; 1568 1 1! 
3 1 +4 108 1 ! FUNCTIONAL DESCRIPTION: 
; 1570 109 1! This routine processes a file attribute record, expanding 
; ; q} 119 : } the attributes it contains into the OUTPUT _ATTBuUF area. 
3 1 ig 118 1 | INPUT PARAMETERS: 
3 1574 11 1! REC - Pointer to attribute record. 
; 1575 1144 1! 
3 1 6 115 1 =! IMPLICIT INPUTS: 
3; 157 118 1! NONE 
; 1578 117 1! 
3; 1579 118 1 ! OUTPUT PARAMETERS: 
; 1580 119 1! NONE 
: 1581 130 1! 
3 1286 121 1 ! IMPLICIT OUTPUTS: 
g 128? 156 : } OUTPUT_ATTBUF = Contains the attribute values. 
; 1585 1246 1 ! ROUTINE VALUE: 
3; 1586 te9 9 § NONE 
3; 1587 126 1! 
; 1588 127 1°! SIDE EFFECTS: 
; 1589 128 1! NONE 
; 1590 192 1! 
; 1591 1 ° 1 !e- 
3 1236 131 «1 
3 159 13 BEGIN 
3 1594 13 GLOBAL REGISTER P$ = 11; 
: 1595 134 CHSFILL(O, FAR_LENGTH, OUTPUT_ATTBUF); 
3 1596 3135 2 DEBLOCK_ATTR(.REC, MASK_FAR, GET_ONE_ATTRIBUTE); 
3: 1597 3136 1 END; 
083C¢ 00000 -ENTRY GET_FILE_ATTRIBUTES, Save R2,R3.R4,R5,R11 ; 3194 
0090 = BF 00 6E 00 2C 00002 MOVCS #0, (SP), #0, #144, OUTPUT_ATTBUF 3 3134 
00000000" EF 00009 ; 
FD2F CF 9F OOODE PUSHAB GET_ONE_ ATTRIBUTE ; 3135 
FA31 CF OF 90012 PUSHAB MASR_FAR : 
04 AC DD 00016 PUSHL ny 3 
FB75 CF 03 FB 00019 CALLS #5, DEBLOCK_ATTR ® 
04 OOO1E RET ; 3136 


; Routine Size: 31 bytes, Routine Base: CODE + 05D1 


2 
U ity routines 18-Sep-1984 91:10:81 ore Bliss-32 V4.0-742 
GET_PHYSVOL_ATTRIBUTES = process physical volum 14-Sep-1 1:54:09 BACKUP. SRCJUTILITY.832;1 


ZSBTTL 'GET_PHYSVOL_ATTRIBUTES = process physical volume record’ 
ZSBTTL ‘GET FILE _EXT_ATTRIBUTES = process file attribute extension record’ 
GLOBAL ROUTINE GET_FILE_EXT_ATTRIBUTES(REC): NOVALUE= 


<c 
zo 
38 35 


o 
SSS 


60 'ee 

604 ‘ 

605 ' FUNCTIONAL DESCRIPTION: 

606 This routine processes a file attribute extension record. 
607 The record process tna is the same as GET_FILE_ATTRIBUTES, 
608 except that the OUTPUT_ATTBUF is not cleared Before the 
609 record is deblocked. 


INPUT PARAMETERS: 
REC - Pointer to attribute record. 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
NONE 


QD rececesarasecasacarararecavacasacacmcmeasacssace 


WAIN AIR PUNINININININID 2 2 OOO Oe 


Be Se Se Se Se Ge Se Ge Se Ge Ge Se Se Ge Se Se Se Ge Se Ge Se Se Se Se Se Se Se Se Se Se Se Geese See 
i a dd ad 
FUN AS SON RUN" OODNOME WSO 


— NINDS SS Ss SS Ss SS Ss SS SS SS Ss Sh SS Ss SS Ss SS SS YS SY 
m 


ARAAAAAAAAAAAAAAAA AAA AOA AH 


64 SIDE EFFECTS: 
65 NONE 
6 -< 
68 
69 IN 
70 AL REGISTER P$ = 11; 
$171 2 DEBLOCK_ATTR(.REC, MASK-FAR, GET_ONE_ATTRIBUTE) 
0800 00000 -ENTRY GET_FILE_EXT_ATTRIBUTES, Save R11 
FDIC CF 9F 00002 PUSHAB GET~ONE_ ATTRIBUTE 
FAIE CF 9F 00006 PUSHAB MASR_FAR 
04 AC DD QO00A PUSHL REC 
FB62 CF 03 FB 0000D CALLS #3, DEBLOCK_ATTR 
04 00012 RET 


Routine Size: 19 bytes, Routine Base: CODE + 05F0 


Page 49) 


a 8 


UTILITY utilit 
v04 GET_FI 
Hf If 
: 1638 158 
: 1639 176 
; 1640 17 
3 1641 178 
; 1et¢ 17 
; 164 180 
3 1644 181 
; 1645 1 ¢ 
; 1948 1 

; 164 1 

; 1648 185 
3 1649 1 

: 1650 1 

; 1651 188 
; 1626 189 
3 165 190 
3 1654 191 
; 1655 136 
; 1656 19 
; 1657 194 
; \o28 195 
: 1659 136 
: 1660 19 
: 1661 198 
s 166¢ $395 
; 166 200 
; 1664 201 
: 1665 $06 
: 1666 20 
; 1667 3204 
; 1668 3205 


28 


OI III) at kk a a 


Y routi 


2 


« 
nes 16-Sep-1984 01:10:21 
E_EXT_ATTRIBUTES = process file attribut 1228687138 94:42:85 


GLOBAL ROUTINE GET_PHYSVOL_ATTRIBUTES(REC): NOVALUE= 


tee 
' 


BEGIN 
GLOBAL REGISTER P$ = 1 
CHSFILL(O, PVA_LENGTH : 

DEBLOCK_ATTR(.REC, MASK_PVA, GET_ONE_ATTRIBUTE); 


tND; 


00 


3; Routine Size: 29 bytes, 


3: 1669 3206 


1 


INPUT PARAMETERS: 
REC 


saa DESCRIPTION: 


BACKUP .SRCJUTILI 


his routine processes a phystcet volume attribute record, expanding 


the attributes it contains 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUTS: 


- Pointer to attribute record. 


OUTPUT_ATTBUF = Contains the attribute values. 


ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
NONE 


¥s 
OUTPUT_ATTBUF); 


083C 00000 

6E 00 2C 0000 
00000000" EF 0000 

FCFF CF 9F 0000C 

FAOD CF 9F 00010 

04 AC DD 00014 

FB45—sCCF 03 FB 00017 
04 0001C 


Routine Base: CODE + 0603 


- ENTRY 
MOovCS 


nto the OUTPUT_ATTBUF area. 


GET_PHYSVOL_ATTRIBUTES, Save R2,R3,R4,R5,- 
#0, (SP), #0, #40, OUTPUT_ATTBUF 


GET ONE ATTRIBUTE 
MASR_PVA 


REC . 
#3, DEBLOCK_ATTR 


AK-11 Bliss-32 v4.0-742 p 6 
t CHUTILITY.B3251 age 43 


2 
routines 1b-se -1984 01:10:21 AX=-11 Bliss-32 V4.0-742 Pa 5 
y CHRSAV - Check to see if saveset is incr 1 ~ep-19 4 94:50:89 YBACKUP. SRE UTILITY.632;1 9 43) 


a5 
$5 


a re 
or 


CoO =~ 


util 
CRYP 
> 1671 7 1 ZSBTTL "CRYPTO_CHKSAV = Check to see if saveset is incrypted’ 
3 1976 ! GLOBAL ROUTINE CRYPTO_CHKSAV(BCB) = 
3 1674 1 1 tee 
3; 1675 1; Be 
: 1678 \§ 1 ! FUNCTIONAL DESCRIPTION: 
3; 167 1 1! This routine cogates the Becks summary record in a block and 
3 1o78 1 : : and determines if the saveset is encrypted. 
3; 1680 1 1 ! INPUT PARAMETERS: 
3 188 : ; : BCB = address of block containing the backup summary record. 
3 1 § 8 1 ! IMPLICIT INPUTS: 
3 1684 01! NONE 
3; 1685 1.8 F 
3; 1686 ¢ 1 ! OUTPUT PARAMETERS: 
3: 1687 1! NONE 
3; 1688 4 1! 
3; 1689 5 1! IMPLICIT OUTPUTS: 
3; 1690 $8 1! 
3; 1691 2 1! 
3 1698 § 8 1 ! ROUTINE VALUE: 2 
3; 169 9 1! TRUE if the saveset is encrypted 
3 1694 oO 1! FALSE if not encrypted. 
: 1695 1-22 
3; 16 ¢ 1 ! SIDE EFFECTS: 
3; 169 » % 
3; 1698 ze 1! 
3; 1699 5 1 !<- 
: 1700 Me 1 
3; 1701 EGIN 
3 1708 8 GLOBAL REGISTER 
3 1 44 P$ = 11: REF VECTOR; ! Linkage for data passed to inner routine 
3; 1705 241 BCB: REF BBLOCK; ! parameter points to buffer 
3: 1706 $e8 
3; 1707 24 ! 
3 1708 see Set flag to indicate whether saveset is encrypted 
; 1710 $246 SAVESET_ENCR = 0 ; 
3 1711 24 
: Har; $508 ! 
3; 171 49 ! Use the BACKUP facility routine DEBLOCK to extract all records 
3 ar $20 of the buffer. 
: inte 26 DEBLOCK (.BCB, SEARCHFOR_BSR_ENC , TRUE ) ; 
3 171 5 
3; 1718 54 
3; 1719 55 IF .SAVESET_ENCR EQL 0 
: 1720 56 THEN RETURN FALSE 
: 1721 57 ELSE RETURN TRUE ; 
3; 1722 58 1 END; 


mM 2 
tility routine 16-Sep-1 
RYPTO” CRAY - scheck to see if saveset is incr 1e-Sep-1 


08g 999 
52 00000000" EF £ 

ge oe bt 

oonev if BF a9it 

FA74 CF 19 

st Bae 

10 

1F 


4 
50 01 00 0 


3; Routine Size: 36 bytes, Routine Base: CODE + 0620 


; 1723 3259 1 


984 11:56:69 


-ENTRY 
MOVAB 


AX-11 Bliss-32 V4.0-742 


CRYPTO cmaav. © ns R2,R11 
SAVESET_E 

SAVESET- EN NER 

SEARCHFOR -BSR_ENC 


DEBLOCK 
SAVESET. ENCR 


RO 


“i, RO 


BACKUP. SRCJUTILITY.832;1 


Page 56 


(19) 
3208 


3333 


3255 


3257 


3258 


2 
routines B-sep-19 4 e 1: 19: 4 AX-11 Bliss-32 V4.0-742 Page 57 
RE OR BSR ENC = Search for Backup Summary i -Sep-1984 9 BACKUP. SRC UTILITY -B32;1 (20) 


ZSBTTL ‘SEARCHFOR_BSR_ENC = Search for Backup _ Summary in block’ 
ROUTINE SEARCHFOR_BSR_ ENC(PTR): LPS NOVALUE = 


14 
' 


i FUNCTIONAL DESCRIPTION: 
; This routine simply checks for an encrypted save set 


i INPUT PARAMETERS: 
; PTR = address of record to examine 


i IMPLICIT INPUTS: 
i NONE 


i 
i 
i 
i 
i 
i 
i 
i 
; 
! OUTPUT PARAMETERS: 
NONE 

! IMPLICIT OUTPUTS: 
} NONE 

ROUTINE ioe 

i 
i 
i 
i 
i 


SIDE errecrss 
The Listing is produced. 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 BEGIN 
EXTERNAL ROUTINE 
GET_SUMMARY_ATTRIBUTES ; 


GLOBAL REGISTER 
P$ = 11: REF VECTOR; ! Linkage for data passed to inner routine 


SSS SSS SSS SSS SSS SS SSS 


PAA AAA MUI YI Ne nae nny ee rere ad 
DONAVES WO OONOULS WN OOM MEW —OOONOU 


am ek a sh = at a ss ss 2 Ss 2 Ss SS SS Ss Vs Ss SS YS SS 2 YS) SS Ls SY SS SY YS 


ret MAP 

106 PTR: REF BBLOCK; ! address of record from block to examine 
768 S 7 We are only interested in backup summary records 

rey O If .PTRCBRHSW_RTYPE) NEQU BRHSK_SUMMARY THEN RETURN; 

769 be GET_SUMMARY_ATTRIBUTES(.PTR); 

4a. 4 SAVESET_ENCR = .BBLOCKCOUTPUT_ATTBUFCBSR_CRYPTDATA], BSASB_CRYPTYP) ; 

rg 308 END; 


0000 00000 SEARCHFOR _BSR_ENC: 
dD” pave nothing 3 398! 
50 04 AC DO 00002 MOVL PTR, RO ; 3502 


UTILITY lity routine v1 
wy ARCH OR_BSR rENC - Search for Backup are ij 

| 01 02 ad 0006 
| 14 2 OO0A 
50 pdDd 0000C 

| re 000 


000000006 00 0; 
00000000" EF 00000000" EF 9A 0001 


04 00020 1$: 


; Routine Size: 33 bytes, Routine Base: CODE + 0644 


3 177% 3309 1 


se ae ": 0 2 AX=11 Bliss-32 V4.0-742 


Be Ed Ek EN Ee, BT ROE PRR SIONS RES 


BACKUP. SRCJUTI ul TY.832;1 
gene). @ 


GET_SUMMARY_ATTRIBUTES 
rE LATTBUF+1T6, SAVESET_ENCR 


Page 58 


(20) 


3304 


3306 
3308 


+ 
i 
| 
| 
j 
| 
j 
| 
| 
! 


3 
(UTILITY Utility routines 1b-se 1984 01:10:21 AX=-11 Bliss-32 V4.0-742 Pa 59 
‘Voutboo DECODE_DEVTYP = decode the devtyp phys vol attr aaa 91:52:89 (BACKUP. SRe UTILITY.832;1 9° (21) 
13 17% 10 1 ZSBITL “DECODE_DEVTYP = decode the devtyp phys vol attr’ 
3 177 11 1 GLOBAL ROUTINE DECODE_DEVTYP ( MEDIA ID AME LENGTH 
(3 1778 i NAME BUFFER: REF VECTORC BYTE), 
31779 131 TYPE-LENGTH, 
; 1790 i ! TYPE_BUFFER: REF VECTORC,BYTE] ): NOVALUE= 
G 178¢ 1g 1 i+ 
(3 178 7 6R , 
13 1786 18 1 ! FUNCTIONAL DESCRIPTION: 
/3 1785 3 3 3 This routine takes the songuer’ walue and interprets it as a 
: 1738 y : } UCB MEDIA_ID and converts it to ascii 
1788 ¢ 1 i {NPUT PARAMETERS: 
1; 1789 '; MEDIA_ID = Longword value Be 
; 1790 4 1! NAME _CENGTH - Address of longword containing the name buffer length 
: ad ; ? : TYPE _ LENGTH - Address of longword containing the type buffer Length 
3 1798 3e7 ! IMPLICIT INPUTS: 
; 1795 359 1! 
3 1796 330 1 | OUTPUT PARAMETERS: : 
; 1797 +) oe NAME _LENGTH - address of longword to recieve name string length 
3 1798 33§ 1 3 NAME BUFFER - address of buffer to receive name string 
3 1799 3 ,} TYPE _LENGTH - address of pongeare to recieve type string Length 
: 1900 335 : TYPE _BUFFER - address of buffer to receive type string 
; 180 336 1 i IMPLICIT OUTPUTS: 
s 1888 BB neler ape 
> 1806 3340 1 i 
1808 scp yi PE Rohe 
> 1809 3348 1 | 
; 1810 344 1 !e- 
; 1811 345 1 
; Ho 346 § BEGIN 
; 181 347 
z + 348 § FIELD 
$ Hy OF $¢9 Field definitions for UCBSL_MEDIA_ID 
; 117 331 MEDIA. 1D_FIELDS = 
3 1819 358 MEDIA_ID_TO = CUCBS$V_MEDIA_ID_T0), 
> 1820 54 MEDIA~ID-T1 = CUCBSV=MEDIA~ 10-11], 
3 1821 355 MEDIA-ID"NO = UCBSV"MEDIAT1D_NO 
3 ince 356 MEDIA_ID_N1 = CUCBSV_MEDIA_ID_N1), 
3 182 357 MEDIA-ID"N2 = CUCBSV~MEDIA~1D-N2J, 
3 ieee 325 mEDIALID WN = CUCBSV~MEDIA_ID_NN 
> 1826 360 : 
3 Ht 544 He ; We only reserve a byte for this number. 
; 1898 68 SASSUME (ZFIELDEXPAND(MEDIA_ID_NN,2), LEQ, 8) ; 
3 1831 65 2 STRUCTURE __ 
3; 1832 366 ! Define a structure to ignore the offset. 
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mee 


ISIS 88 trientine 
=S 


wr 


09 0d Cd Cd CD C9 OD OD CD CD 
WAAAY 
DONOUVE WN $0 OONO UE WO 
OD OD CD CD CD CD CD CD 
sono ar 


SoREREE 


PIV III IY pre ee 
nee ta 


SOoDDO 
SS3e22 
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S 
RAR 


Seeesecese 
WNAUSWN—OO 
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oO 
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ee 
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3 


0 
y_ routines 16-Sep-1984 01:10:21 AX-11 Bliss-3 
-DEVTYP = decode the devtyp phys vol attr 1o28007 1 98e 9455838 te 


! This way we can use the UCB symbols that are already 
defined. 


MEDIA, 1D_STRUCTLO,P,S.E:NJ= 
(MEDIA_ID_STRUCT)<P,S,E>; 


MAP 
MEDIA_ID : MEDIA_ID STRUCT FIELD (MEDIA_ID_FIELDS) ; 
BIND 


NAME_INLEN = .NAME_LENGTH : LONG , 
TYPE-INLEN = .TYPE~LENGTH : LONG : 
LOCAL 
OUTLEN =: LONG INITIAL (0) , 
CTRL_DESC : BBLOCK(8) PRESET ( 
DSC$W_LENGTH] = ZCHARCOUNT(*!27B"), 
DSCSB-DTYPE] = DSCSK_DTYPE_2, 
DSC$B-CLASS] = DSCSK~CLASS~S 
DSCSA_POINTERJ= UPLITBYTE(*!27B")), 
OUT_DESC : BBLOCK(8) PRESET ( 
DSC$W_LENGTH] = 0 
DSCSB-DTYPE] = DSCSK_DTYPE_Z. 
DSCSB-CLASS] = DSCSKICLASS—S. 
DSCSA~POINTERIJ= 0), 
NUMBER _: BYTE INITIAL 0) ; 


We must have at least 3 bytes in the name buffer 
if NAME_INLEN NEQ 0 
THEN 
BEGIN 
IF (.NAME_IMNLEN GEQ 3) AND 
(NAME "BUFFER NEQ 0) 
THEN 
BEGIN 
OUTLEN = 0 ; 


ACKUP.SRCJUTILITY.832;1 


: Each character is assigned a number from 1 to 26 corresponding to A-z 


iF .MEDIA_IDCMEDIA_ID_NOJ NEQ 0 
THEN 


BEGIN 
NAME _BUFFERC.OUTLEN] = %X°40" + .MEDIA_IDCMEDIA_ID_NO) ; 
OUTLEN OUTLEN + 1; 


END ; 
IF .MEDIA_IDCMEDIA_ID_N1] NEQ 0 
THEN 
BEGIN 
NAME BUFFERC.OUTLEN] = %X'4O" + .MEDIA_ID(MEDIA_ID_N1) ; 
QUTLEN = .OUTLEN + 1 ; 
IF .MEDIA_IDCMEDIA_ID_N2] NEQ 0 
BEGIN 


UTILITY ility routines ese -Sep-19 1:10: AX-11 Bliss-32 v4.0-762 
Voutbon CODE DEVIYP = decode the devtyp phys vol attr 127368713 4 9 3° ‘69 BACKUP. SRCJUTILITY.832;1 
51 4 5 NAME _BUFFERC. OUTLEN = %X'40" * .MEDIA_IDCMEDIA_ID_N2) ; 
5 1891 5 OUTLEN = -OUTLEN ; 

i3 3 4 $ 4 fos 

3; 189 a 

3 : be : 2 : The Last field is a number 
(31 96 0 4 ER = .MEDIA cADEMEDIA. 1D 1D x ; 
3 189 1 4 Out DESCEDSC$u_CENG RME_INLEN = .OUTLEN ; 

3 1898 é 4 OUT"DESCCDSCSA-POINTER) = NAME “BUFFERC.OUTLEN] ; 

: 1899 4 SFAO (CTRL DESE | CTRSTR 

: 1900 4 OUT_BESCCOSC$W_LENGTH], ' OUTLEN 

: 1901 5 4 OUT~DESC ‘ OUTBUF 

; 190¢ 4 sNUMBER 5 ; P 

3 1207 : OUTLEN = .OUTLEN + .OUT_DESCCDSC$W_LENGTH) ; 

: 1905 9 «4 NAME_INLEN = .OUTLEN ; 

> 1906 40 4 END 

: 1907 441 ; ELSE 

: 1908 oe NAME _INLEN = 0 ; 

: 1880 tt grea. 

: 1911 45 : We must have at least 2 bytes in the type buffer 

3 1918 44 IF TYPE_INLEN NEQ 0 

+ 1914 468 THEN 

: 1915 49 BEGIN 

: 1916 50 IF (. TYPE _INLEN GEQ 2) AND 

: 1917 51 4 . TYPE“BUFFER NEQ 0) 

; 1918 rt 3 . 

3 1919 33 é BEGIN 

: 1981 35 4 OUTLEN = 0; 

: 1998 3 2 Each character is assigned a number from 1 to 26 corresponding to A-z 
: 1925 59 4 if .MEDIA_IDCMEDIA_ID_T0) NEQ 0 

> 1926 460 4 THEN 

: 1927 61 § BEGIN 

: 1928 462 5 TYPE BUFFER. OUTLEN] = %X'4O" + .MEDIA_ID(MEDIA_ID_T0J ; 
: 494 463 5 OuT TLEN = .OUTLEN 3 

: 19 464 4% END 

: 1931 465 & IF jo Penameh? NEQ 0 

a EAT ha 

: 1982 468 5 TYPE BUFFERC.OUTLEN) = %X'4O" + .MEDIA_IDCMEDIA_ID_T1) ; 
3: 1935 69 5 OUTLEN = .OUTLEN + 1 ; 

: 19 470 & 3 

: 193 471 4 

: 1938 47 4 TYPE_INLEN = .OUTLEN ; 

> 1939 473 & END 

3 1940 74 ELS 

: 1941 475 a TYPE_INLEN = 0 ; 

3 1928 7 

+ 1944 478 2 RETURN 

3: 1945 479 

> 1946 80 1 END ; 


| 
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Utility routines 
DECODE_DEVTYP = decode 


04 
08 
51 
OC BC42 
01FO 
51 0S A 
OC BC42 
OF 80 
51 06 AC 
OC BC42 
51 06 AC 
6E 08 
04 
000000006 
08 


AE 
AE 


03 


02 


42 SA 32 21 


o10000% 
01000000 
04 


08 


08 
oc 


06 


40 
05 


40 
04 


40 


oc 


04 
08 
14 


52 


MIFVUIMOUDOOPr 
ONIN “OM INFO 


F 3 
16-Sep-19 
the devtyp phys vol attr 14-Sep-19 


s 


00 

C2 0000 
D4 0000 
4 000 
E QO00F 
DD 00014 
D4 QOOTA 
94 0001D 
DS OO01F 
12 BOSE 
31 00024 
D1 BOSe 
19 00028 
0 Ong 
13 00030 
D4 00032 
93 00034 
13 00038 
cf OO3A 
1 00040 
D6 00047 
BS 00049 
13 0004F 
ff 0051 
1 00057 
D6 OO05E 
B83 00060 
13 00066 
F 00068 
OogE 

D6 0007 
cf 0077 
9 0070 
AS 00080 
9E 00085 
9A 00058 
oF poe 
9F 0009 
9F 00094 
8% 
OOA4 


o-0—-090 -90Ow™" 
MO-"WN F -OO0rWw 


00665 P.AAA: 


1$: 


23: 


3$: 


4$: 


Be 91:50:69 


ASCII 
SUBL2 


AX-11 Bliss-32 V 4.08 742 
BACKUP .SRC UTiLit ¥.832;1 


\!27B\ 

SYSSFAO 

DECODES DEVTYP, Save R2 
O55 8220 CTRL_DESC 
P.AAA CTRL T+ 
#1677721 

OuT pests 


NAME LENGTH 
1$ 


6$ 
@NAME_LENGTH, #3 
NAME _BUF FER 
5$ 
OUTLEN 
9p 1D+2, #62 
#5, MEDIA _ID+2, R1 
a6 neh Ri. @NAME_ BUFF ERCOUTLEN] 
MEDIA. 1D+1, #496 


#4, #5, MEDIA_ID+1, 
#64, Ri, aNAME TBuF FERLOUTLENI 


OU TLE 
REDIA, ID, #3968 


#7, #5, MEDIA_ID, R1 
6h Ri, @NAME_BUFFERCOUTLEN) 


OUTLEN 
aye a7, med iA. 1D, R1 
a + NUMBER 


ent LENGTH, OUT_DESC 
skate abutter OUTLEN]. OUT~DESC+4 


OUT eric 
OU ESC 


cTRO_D 

as SySSF AO 

Ouf_DESC, R 

RO, “OUTLEN 

OufLEN, @NAME_LENGTH 


@NAME LENGTH 
Type CENGTH 
@TYPE_LENGTH, #2 
TYPE _BUFFER 


See Se Se Se Se Se Se Me Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Be Fe Se Se Se Ge Se Se Be Se Se Se Se Be 


62 
(21) 


07 


10 


CODE + 0669 


VIMNDOO FP MODOOr 
MMIFNOA MOM MWFES 


@ 
o 


1 
code the devtyp ie vol attr 14-Sep-19 


Rs OOF! 9$: 
4 OOOFS 108: 


19:41 AX=11 Bliss-32 


742 

BACKUP.SRCJUTI ul ty e520 1 
QUTLEN 

oo 1D+3, #248 


ask, "6, MET PE bur FERCOUTLENI 


TLEN 
MEDIA_ID*2, #1984 


#6, #5, MEDIA_ID 
wot. R rb, atyPe 1oeF FERCOUTLEN) 


out 
OUTLEN, @TYPE_LENGTH 
@TYPE_LENGTH 


4 3 
UTILITY Utility routines 1o-300" 138% 91:30:83 AX-11 Bliss-32 V 
v04 DECODE _DEVTYP = decode the devtyp phys vol attr 14-Sep-1984 11:54:09 BACKUP. SRC uTiLit 
3 1949 1 END 
3; 1950 368 0 ELUDOM 
-EXTRN LIBSSIGNAL 

3 PSECT SUMMARY 
: Name Bytes Attributes 
: 08s NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, OVR,NOPIC,ALIGN( 
; CODE 1886 wove e NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN( 
3; DATA C; WRT. RD eNOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN( 
; Library Statistics 
; sosccsse Syabol§ oocecese Pages Processing 
$ File Total Loaded Percent Mapped Time 
; .$255$DUA28: (SYSLIBILIB.L32;1 18619 28 0 1000 00:02.2 
; COMMAND QUALIFIERS 
: BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:UTILITY/OBJ=OBJS:UTILITY MSRCS:UTILITY/UPDATE=(ENHS$:UTILITY) 

Size: 1835 code + 2179 data bytes 

Run Time 757.1 

Slaseed Tine: 03:11.2 


Lines/CPU Min: 3662 
Lexenes/CPU-Rin: 28500 
pone! | Used: 525 pages 
Compilation Complete 
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